Составить программу, формирующую массив из 10 дробных чисел вводом с клавиатуры (см. пример) и находящую сумму всех его элементов. Ответ написать как пишут в паскале.
Составить программу, формирующую массив из 10 дробных чисел вводом с
клавиатуры (см. пример) и находящую сумму всех его элементов.
Ответ написать как пишут в паскале.
Гость
Ответ(ы) на вопрос:
ГостьProgram pr;
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.
Не нашли ответ?
Похожие вопросы