Question

Напишите программу, которая генерирует 10 случайных чисел в диапазоне от 1 до 20, выводит эти числа на экран и вычисляет их разность.

Answer 1

Pascal ABC.

var   
   i,a,raz:integer;
begin   
   for i:=1 to 10 do begin         
      a:=random(19)+1;         
      writeln(a);         
      raz:=raz-a;     
   end;     
   writeln('Разность: ',raz);
end.

Answer 2

PascalABC.NET
Версия 3.3, сборка 1633 (10.02.2018)

var
 a,b,o: integer;
begin
 for a:=1 to 10 do begin
 b:=random(19)+1;
 writeln(b);
 otvet:=otvet-b;
 end;
 writeln(otvet);
end.