Автор Аня Хабрат задал вопрос в разделе Другие языки и технологии
посчитать сумму элементов одномерного массива. паскаль и получил лучший ответ
Ответ от AspiD[гуру]
тупо добавить вторую переменную для суммы второй. и поставить её вместо первой во втором цикле =))
не закрывается сразу, как минимум, из-за readln в конце
AspiD
Мыслитель
(9307)
const
N=4;
var
a,b: array [1..N] of integer;
i,sum1,sum2:integer;
begin
clrscr;
sum1:=0;
sum2:=0
for i:=1 to N do
begin
readln(a<i>);
write(a<i>:4);
sum1:=sum1+ a<i>;
end;
writeln(sum1);
for i:=1 to N do
begin
readln(b<i>);
write(b<i>:4);
sum2:=sum2 + b;
end;
writeln(sum2);
readln;
end.</i></i></i></i></i>
Ответ от 22 ответа[гуру]
Привет! Вот подборка тем с похожими вопросами и ответами на Ваш вопрос: посчитать сумму элементов одномерного массива. паскаль