Как найти сумму всех элементов в массиве array
Как найти сумму всех элементов в массиве array
Гость
Ответ(ы) на вопрос:
Гостьvar a:array[1..100]of integer;
i,sum,n:integer;
begin
writeln("vvedite kol-vo elementov");
read(n);
sum:=0;
for i:=1 to n do
read(a[i]);
for i:=1 to n do
sum:=sum+a[i];
writeln("summa vseh elementov = ",sum);
end.
Не нашли ответ?
Похожие вопросы