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

Question

Информатика

Филомена

21 апреля, 07:49

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

+1

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