Untitled

mail@pastecode.io avatar
unknown
plain_text
a month ago
1.2 kB
1
Indexable
Never
program CountEvenAndOddElements;
const
  размер = 10;
var
  массив: array[1..размер] of integer;
  i, чётные, нечётные: integer;
begin
  чётные := 0;
  нечётные := 0;
  
  // Заполняем массив случайными числами в интервале [20,100]
  Randomize;
  for i := 1 to размер do
  begin
    массив[i] := Random(81) + 20; // Получаем случайное число в интервале [0,80] и добавляем 20
    // Подсчитываем количество чётных и нечётных элементов
    if массив[i] mod 2 = 0 then
      чётные := чётные + 1
    else
      нечётные := нечётные + 1;
  end;

  // Выводим полученный массив и количество чётных и нечётных элементов
  writeln('Сгенерированный массив:');
  for i := 1 to размер do
    write(массив[i], ' ');
  writeln;
  writeln('Количество чётных элементов: ', чётные);
  writeln('Количество нечётных элементов: ', нечётные);
end.
Leave a Comment