1. Актуальная: Экологическая обстановка в мире с каждым днём ухудшается.
2. Неактуальная: Чтобы добыть огонь, нужно стукать камушек о камушек.
3. Достоверная: Силы, с которыми тела действуют друг на друга, равны по модулю и противоположны по направлению (информация из учебника).
4. Недостоверная: Люська из пятого подъезда ведёт разгульный образ жизни (слова соседки-сплетницы).
5. Объективная: Часы показывают 17 часов 50 минут.
6. Необъективная: Сейчас вечер.
7. Полная: Красный свет - стой, жёлтый - приготовься, зелёный - иди.
8. Неполная: Красный свет - стой, зелёный - иди (для трёхцветного светофора)
9. Полезная: Не сутулься, а то рано состаришься!
10. Бесполезная: В соседней деревне нет ни одного Олега.
11. Понятная: Два плюс два равно четыре.
12. Непонятная: жык лопр дыв мыг
program z1;
var a,pp,po:real;
i:integer;
begin
pp:=1;
po:=1;
for i:=1 to 10 do
begin
write ('Введите число: ');
read (a);
if a>0 then pp:=pp*a;
if a<0 then po:=po*a
end;
writeln ('Произведение положительных: ',pp);
writeln ('Произведение отрицательных: ',po)
end.
Объяснение:
Начальные произведения равны 1
Цикл с параметром:
1) ввод числа
2) если число положительное, то умножаем число на произведение положительных чисел
3) если число отрицательное, то умножаем число на произведение отрицательных чисел
Вывод произведений