Введите с клавиатуры десять чисел. Выведите на экран произведение этих чисел.

Введите с клавиатуры десять чисел. Выведите на экран произведение этих чисел.

Program Anadra;

uses crt;

var a,b,c: integer;

begin

writeln(‘Введите 10 чисел’);

c:=1;

for a:= 1 to 10

do

begin

readln(b);

c:=c*b;

end;

writeln(‘Произведение чисел равно ‘,c);

end.

Разбор решения:

1)Итак, для начала нам надо заполнить раздел переменных. Все они типа Integer.

a - переменная, которую будет использована в счетчике

b - вводимое число

с — произведение чисел

2)Теперь сама программа. Для начала просим пользователя ввести 10 чисел.

writeln(‘Введите 10 чисел’);

3)Присваиваем переменной c значение 1. Это делается для того, чтобы избежать значений, которая  может дать программа из предыдущих программ.

c:=1;

4)Далее счётчик. Счетчик а изменяется с шагом 1.

for a:= 1 to 10 do

5)Открываем цикл. 

begin

6)Пользователь вводит число.

readln(b);

7)Умножаем введенное число на c.

c:=c*b;

8)Закрываем цикл.

end;

9)Выводим результат на экран.

writeln(‘Произведение чисел равно ‘,c);

10)Программа готова. Жду ваших комментариев.