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

Question

Информатика

Любим

17 июля, 02:06

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

+5

Ответы (1)

Знаете ответ?

Белла · Answer 1

Вот программа для массива состоящих, например из 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.