Составить программу, формирующую массив из 10 дробных чисел вводом с
клавиатуры (см. пример) и находящую сумму всех его элементов.
Ответ написать как пишут в паскале.
клавиатуры (см. пример) и находящую сумму всех его элементов.
Ответ написать как пишут в паскале.
More Questions From This User See All
Answers & Comments
uses crt;
var
mas: array[1..10] of real;
sum: real;
i: integer;
Begin
sum:=0;
for i:=1 to 10 do
Begin
write('mas', i, ' = ');
readln(mas[i]);
sum:=sum + mas[i];
end;
writeln();
writeln('sum = ' , sum);
readln;
end.