Заповніть у табличному процесорі таблицю

Не совсем верно, но очень близко.

uses crt;

const nmax=100;

var a:array[1..nmax] of integer;

n,i,j,k:byte;

begin

clrscr;

repeat

write('Размер массива до ',nmax,' n=');

readln(n);

until n in [1..nmax];

writeln('Введите элементы массива:');

for i:=1 to n do

begin

write('a[',i,']=');

readln(a[i]);

end;

clrscr;

writeln('Массив:');

for i:=1 to n do

write(a[i]:4);

writeln;

writeln;

k:=0;

for i:=1 to n-1 do

for j:=i+1 to n do

if a[j]=a[i] then k:=k+1;

if k=1 then write('В массиве только 2 одинаковых элемента')

else write('В массиве не 2 одинаковых элемента');

readln

end.

Объяснение:

ответ:

объяснение:

static void main(string[] args)

        {

            double a, b, c, d, sum;

            double sum1;

            console.writeline("введите a");

            a = convert.todouble(console.;

            console.writeline("введите b");

            b = convert.todouble(console.;

            console.writeline("введите c");

            c = convert.todouble(console.;

            console.writeline("введите d");

            d = convert.todouble(console.;

            sum = math.sqrt(math.pow(a - b, 2));

            sum1= math.sqrt(math.pow(c - d, 2));

            console.writeline("расстояние между точками а и в=" + " " + sum);

            console.writeline("расстояние между точками c и d=" + " " + sum1);

            console.readkey();

        }

    }

}