Составить программу для нахождения суммы десяти произвольных чисел на языке паскаль?

Question

Информатика

Ася

18 апреля, 15:35

Составить программу для нахождения суммы десяти произвольных чисел на языке паскаль?

+5

Ответы (1)

Знаешь ответ?

Неля · Answer 1

uses crt;

var a, s:real; i:integer;

begin

clrscr;

randomize;

s:=0;

for i:=1 to 10 do

begin

a:=random (100) - 50;

s:=s+a;

write (a,' ');

end;

writeln;

write ('summa=', s);

end.