Напишите программу заполнения одномерного массива любым способом и

найдите сумму всех элементов.

Question

Информатика

Исаак

25 июля, 01:35

Напишите программу заполнения одномерного массива любым способом и

найдите сумму всех элементов.

+1

Ответы (1)

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

Перфилий · Answer 1

Const

n=10;

var

a:array[1 ... n] of real;

Sum:real;

i:byte;

begin

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

for i:=1 to n do

read (a[i]) ;

sum:=a[1];

for i:=2 to n do

sum:=sum+a[i];

writeln ('Сумма равна = ', sum) ;

end.

Напишите программу заполнения одномерного массива любым способом инайдите сумму всех элементов.

Напишите программу заполнения одномерного массива любым способом и

найдите сумму всех элементов.