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

Question

Информатика

Геннадьич

20 августа, 01:47

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

+4

Ответы (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.