Составить программу на определение суммы элементов - вопрос №4029145 от kainkem 21.05.2023 00:24

Question

Информатика: Составить программу на определение суммы элементов массива( одномерный двумерный)

kainkem · Answer

Вот программа для массива состоящих,например из 7 чисел

var
a:array[1..7]of integer;
i,n,m:integer;
begin
m:=0;
Writeln('введите числа:');
For i:=1 to 7 do
Readln (a[i]);
for i:=1 to 7 do
m:=a[i]+m;
writeln(m);
end.