Дан массив всех целых чисел. Найти сумму элементов в массиве. (Паскаль)

Question

Информатика

Марлеша

20 августа, 21:14

Дан массив всех целых чисел. Найти сумму элементов в массиве. (Паскаль)

+4

Ответы (1)

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

Мика · Answer 1

uses crt;

var i, count:integer;

a:array[1 ... 20] of integer;

begin

randomize;

count:=0;

for i:=1 to 20 do a[i]:=random (6) + 1;

for i:=1 to 20 do begin

count:=count+a[i];

write (a[i],' ') ;

end;

writeln;

writeln (' count = ', count) ;

readln;

end.