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

Question

Информатика

Михай

4 апреля, 01:50

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

+1

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