var a,i,k:integer;
arr:Array[1..10] of integer;
begin
randomize;
for i:= 1 to 10 do
begin
a:=random(1,20);
arr[i]:=a;
end;
k:= arr[1];
for i:= 1 to 10 do
begin
k:= k - arr[i];
end;
for i:= 1 to 10 do
write(arr[i], ' ');
writeln();
writeln('Разность чисел - ',k);
end.
Объяснение:
первый цикл заполняет массив случайными целыми числами
второй вычисляет разность
третий нужен для вывода массива (необязательно но для наглядности)
