Помогите составить программу в Паскале.

Составить программу, формирующую массив из 10 дробных чисел вводом с клавиатуры и находящую суму всех его элементов.

Question

Информатика

Никитьич

13 марта, 04:17

Помогите составить программу в Паскале.

Составить программу, формирующую массив из 10 дробных чисел вводом с клавиатуры и находящую суму всех его элементов.

+1

Ответы (1)

Знаете ответ?

Мирослав · Answer 1

Var

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

i: integer;

b: real;

begin

for i : = 1 to 10 do

begin

Write ('Введите ', i, '-ый элемент массива ') ;

Readln (a[i]) ;

b : = b + a[i];

end;

Writeln ('Сумма равна ', b) ;

end.

Помогите составить программу в Паскале.Составить программу, формирующую массив из 10 дробных чисел вводом с клавиатуры и находящую суму всех его элементов.

Помогите составить программу в Паскале.

Составить программу, формирующую массив из 10 дробных чисел вводом с клавиатуры и находящую суму всех его элементов.