Опубликовано 09.06.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

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.