Помогите Найти сумму элементов массива состоящего из 12 элементов
Answers & Comments
Redov
Массив заполняется члучайными числами от 0 до 100.
var a:array[1..12] of integer; i,sum:integer; begin sum:=0; for i:=1 to 12 do begin a[i]:=random(101); writeln('a[',i,']=',a[i]); sum:=sum+a[i]; end; writeln; writeln('Summa elementov massiva = ',sum); end.
Answers & Comments
var
a:array[1..12] of integer;
i,sum:integer;
begin
sum:=0;
for i:=1 to 12 do
begin
a[i]:=random(101);
writeln('a[',i,']=',a[i]);
sum:=sum+a[i];
end;
writeln;
writeln('Summa elementov massiva = ',sum);
end.