Регистрация
1007199
18.05.2020 12:46
Информатика
Есть ответ 👍

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

273
332
Посмотреть ответы 2

Ответы на вопрос:

Гули0203
Гули0203
4,4(17 оценок)
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.
Soniasizova
Soniasizova
4,4(64 оценок)
Var mas: array [1..7] of integer; s,i: integer; begin s : = 1; for i : = 1 to 7 do if mas[i]> 5 then s : = s * mas[i]; end;

Популярно: Информатика