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

Question

Информатика

Апфия

31 мая, 03:29

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

+2

Ответы (1)

Знаете ответ на вопрос?

Илюся · Answer 1

Var ar:array[1 ... 20] of integer;

i, s:integer;

begin;

randomize;

writeln ('Array:') ;

for i:=1 to 20 do

begin;

ar[i]:=random (10) ;

write (ar[i]:4) ;

s:=s+ar[i];

end;

writeln;

writeln ('Result:', s) ;

end.