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

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

Question

Информатика

Ксена

28 июня, 12:43

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

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

+2

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

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

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

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