Написать пограмму, которая сначала должна обеспечть ввод 5 чисел в одномернй массив, зтем выселить их сумму и вывести ее на экран

Question

Информатика

Варвар

14 декабря, 00:07

Написать пограмму, которая сначала должна обеспечть ввод 5 чисел в одномернй массив, зтем выселить их сумму и вывести ее на экран

+2

Ответы (1)

Знаете ответ на вопрос?

Амелфа · Answer 1

Var i, sum:integer;

a:array[1 ... 5] of integer;

begin

writeln ('Введите числа') ;

for i:=1 to 5 do

begin

write ('a[', i,'] = ') ;

read (a[i]) ;

sum:=sum+a[i];

end;

writeln ('Сумма элементов массива равна ', sum) ;

end.