Question

Задача по информатике: (PascalABC)
Получить случайным образом N целых чисел, и найти их сумму. (функцией random)
Спасибо большое !

Answer 1

Ответ:

var

 f: array[1..100] of integer;

 i, n, s: integer;

begin

 writeln('Введите количество чисел: ');

 readln(n);

 randomize;

 for i := 1 to n do  

 begin

   f[i] := random(0, n);

   write(f[i], ' ');

 end;

 s := 0;

 for i := 1 to n do

 begin

   s := s + f[i];

 end;

 writeln('Сумма: ', s);

end.