Найти произведение отрицательных чисел - Pascal (9108)
Формулировка задачи:
Для различных вводимых с клавиатуры чисел, найти произведение отрицательных чисел. Колличество отрицательных чисел - N задать с клавиатуры, выход их программы при N = 0
Решение задачи: «Найти произведение отрицательных чисел»
textual
Листинг программы
var
a,x,i,proiz,n:integer;
begin
write('Vvedite n: ');
readln(n);
proiz:=1;
for i:=1 to n do
begin
write('Vvedite #',i,': ');
readln(a);
if (a<0) then proiz:=proiz*a;
end;
writeln('Proiz: ',proiz);
readln;
end.
Объяснение кода листинга программы
- В начале объявляются переменные: a, x, i, proiz, n - целые числа.
- Затем идет команда write('Vvedite n: '), которая предлагает пользователю ввести число n.
- После этого переменная n инициализируется значением, введенным пользователем.
- Далее идет цикл for, который выполняется n раз.
- На каждой итерации цикла пользователю предлагается ввести число a.
- Если число a отрицательное, то значение переменной proiz умножается на a и присваивается обратно переменной proiz.
- По завершении цикла выводится значение переменной proiz.
- Программа завершается командой readln.