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

Составьте программу ,которая заполняет массив а[1..8] случайными целыми числами в диапазоне от 1 до 10 и находит количество элементов с чеоными значениями и произведение элементов с нечетными значениями

Показать ответ
Ответ:
nsotskova
nsotskova
02.10.2020 03:38
Program rand_max;
  const
    size=8;
  var
    main_mas: array [1..size] of integer;
    i,nchet,proizv:integer;
  begin 
        nchet:=0; 
        proizv:=1; 
        randomize; 
        writeln('Исходный массив:'); 
        for i:=1 to size do  begin   
           main_mas[i]:=random(11);   
           write(' ',main_mas[i],' ');   
           if (Odd(main_mas[i])) then      
                begin       
                    inc(nchet);       
                    proizv:=proizv*main_mas[i];     
                end; 
       end; 
       writeln; 
       writeln('Кол-во нечетных: ',nchet); 
       writeln('Произведениче нечетных = ',proizv);  
end.
0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота