Напишите программу которая вводит с клавиатуры 10 чисел и вычисляет их сумму и...

Сегодня примерно в 12:49 на наш email ящик поступил вопрос, который наши модераторы от-несли к категории Разное. Постараемся дать на него полноценный ответ.

Тема вопроса с пояснением

Напишите программу которая вводит с клавиатуры 10 чисел и вычисляет их сумму и произведение
pascal

Ответ с привлечением экспертов

Среди нашей команды есть эксперты, которые успешно отвечают на вопросы из рубрики "Информатика". Напомним, что вы задали следующий вопрос:

Напишите программу которая вводит с клавиатуры 10 чисел и вычисляет их сумму и произведение
pascal

И сразу же ответим на него:

После проведенного совещания с другими специалистами нашего сервиса, мы склонны пола-гать, что правильный ответ на заданный вами вопрос будет звучать следующим образом:

Var i: byte;
sum,n:integer;
pro:longint;

begin
sum:=0;
pro:=0;
for i:=1 to 10 do
begin
write('Введите ', i, 'число');
readln(n);
sum:=sum+n;
pro:=pro*n;
end;
writeln('Сумма введенных чисел - ', sum);
writeln('Произведение: ', pro);
end.