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

Question

Информатика

Фадей

5 октября, 13:25

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

+3

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