Question

Составить алгоритм нахождения суммы 15 положительных чисел, которые генерируются случайным образом.(блок схемой)

Answer 1

Program cnaiper;
uses crt;
const n=15;
var
  sum,t,i: integer;
begin
  writeln('*** alphaues is thinking... ***');
  writeln('***          OK             ***');
  writeln();
  writeln('Числа:');
  randomize;
  sum:=0;
  for i:=1 to n do
    begin
      t:=random(100);
      sum:=sum+t;
      write (t:5);
    end;
  writeln();
  writeln('Сумма 15 чисел = ',sum);
end.

 

Блок-схема - во вложении