Опубликовано 13.06.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

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.