СДАМ ГИА: РЕШУ ЕГЭ
Образовательный портал для подготовки к экзаменам
Информатика
≡ информатика
сайты - меню - вход - новости




Задания
Версия для печати и копирования в MS Word
Задание 25 № 2917

Опишите на русском языке или на одном из языков программирования алгоритм подсчета произведения всех отрицательных элементов заданного целочисленного массива размером 30 элементов, в предположении, что в массиве есть хотя бы один отрицательный элемент.

Решение.

var a:array [1..30] of integer;

i,s:integer;

begin

s:=1;

for i:=1 to 30 do begin

readln(a[i]);

if a[i]<0 then s:=s*a[i];

end;

write(s);

end.