Составить программу на суммирование элементов массива. Произвести ввод и отладку программы, проанализировать полученный результат.
Answers & Comments
Sky09
Uses crt; const N=5; var a:array [1..N] of integer; x,sum:integer; begin sum:=0; for x:=1 to N do begin write('a[',x,']:'); readln(a[x]); sum:=sum+a[x]; end; writeln('Sum=',sum); end. --- Вариант работы программы на скрине во вложении
Answers & Comments
const N=5;
var a:array [1..N] of integer;
x,sum:integer;
begin
sum:=0;
for x:=1 to N do
begin
write('a[',x,']:');
readln(a[x]);
sum:=sum+a[x];
end;
writeln('Sum=',sum);
end.
---
Вариант работы программы на скрине во вложении