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

Question

Информатика

Симоня

18 февраля, 08:55

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

+1

Ответы (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.