Склавиатуры вводится массив из m чисел.найти сумму элементов массива.

yegor655 yegor655    1   13.06.2019 13:30    0

Ответы
198219821333 198219821333  10.07.2020 14:53
Var m:integer;
var i:integer;
var mass:array of integer;
begin
write('Razmernost masiva: ');
readln(m)
;mass:=new integer[m];
for i:=0 to m-1 do begin 
write('a[',i,']: '); 
readln(mass[i]); 
end;   

var sum:integer; 
sum:=0; 

 for i:=0 to m-1 do 
sum += mass[i];   
writeln('Summa vseh elementov massiva: ', sum)
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика