Question

Задан массив случайных чисел из отрезка (20,100), определить сколько в нем чисел четных и нечётных и каких больше
помоги пожалуйста ​

Answer 1

Ответ:

Python

import random

numbers = [random.randint(20, 100) for i in range(20, 100)]

even_cnt, odd_cnt = sum(num % 2 == 0 for num in numbers), sum(num % 2 != 0 for num in numbers)

print(f"Четных чисел: {even_cnt}\nНечетных чисел: {odd_cnt}\n{'Четных чисел больше.' if even_cnt > odd_cnt else 'Нечетных чисел больше.' if odd_cnt > even_cnt else 'Четных и нечетных чисел одинаковое количество.'}")

Pascal:

program Answer;

var

numbers: array[1..80] of Integer;

even_cnt, odd_cnt, i: Integer;

begin

randomize;//Рандом

for i := 1 to 80 do//Генерируем 80 рандомных чисел

numbers[i] := random(81) + 20;

even_cnt := 0;

odd_cnt := 0;

for i := 1 to 80 do

begin//Четные или нечетные

if numbers[i] mod 2 = 0 then

even_cnt := even_cnt + 1

else

odd_cnt := odd_cnt + 1;

end;

writeln('Четных чисел: ', even_cnt);

writeln('Нечетных чисел: ', odd_cnt);

if even_cnt > odd_cnt then

writeln('Четных чисел больше.')

else if odd_cnt > even_cnt then

writeln('Нечетных чисел больше.')

else

writeln('Четных и нечетных чисел одинаковое количество.');

end.

Answer 2

//PascalABC.NET версия 3.9 (2023-07-11)

begin

   var a := ArrRandomInteger(100, 20, 100 + 1);

   var even_count := a.Count(x -> x mod 2 = 0);

   var uneven_count := a.Count(x -> x mod 2 <> 0);

   Writeln('Четных чисел: ', even_count);

   Writeln('Нечетных чисел: ', uneven_count);

   Writeln(even_count > uneven_count ? 'Четных больше' : even_count = uneven_count ? 'Поравну' : 'Нечетных больше');

   

end.