Составить программу, запрашивающую у пользователя 10 действительных чисел
Составить программу, запрашивающую у пользователя 10 действительных чисел, подсчитывающую и выводящую на экран их сумму и произведение.
Переменные
Сумма,Число тип ДействительноеКороткое;
Начало
Сумма:=0;
Произведение:=1;
Очиститьэкран();
Для Счетчтик =1 до 10 Делать
Начало
Писать(""Введите число ", Счетчик, ":>");
Читать(Число);
Сумма:=Сумма+Число;
Произведение:=Произведение*Число;
Увеличить(Счетчик);
Конец;
Печать("Сумма чисел", Сумма, ПереводКаретки, ВставкаНовойСтроки);
Печать(Произведение);
Конец.
А такая программа подойдет?
var
s,p: real;
begin
writeln ( 'Введите 10 чисел:' );
s := 0;
p := 1;
for var i := 1 to 10 do
begin
var x: integer;
read(x);
s += x;
p *= x;
end;
writeln('Сумма введенных чисел = ',s);
writeln('Произведение введенных чисел = ',p);
end.