В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
Relig1d
Relig1d
29.06.2021 00:14 •  Информатика

Впаскале среди 10 введенных с клавиатуры чисел подсчитать количество отрицательных и произведение положительных чисел рассмотреть случай когда положительных чисел нет

Показать ответ
Ответ:
raykova568
raykova568
28.05.2020 05:00

program test;

var n, total, counter, i:integer;
begin
   total:=1;
   counter:=0;
   for i:=1 to 10 do
   begin
      read(n);
      if n < 0 then
         counter:=counter+1
      else if n > 0 then
         total:=total*n;
   end;
   writeln('The number of negative elements = ', counter);
   if total = 1 then
      writeln('Positive numbers no')
   else
      writeln('The product of positive numbers = ', total);
   readln;
end.

0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота