Question

Pascal ABC . Срочно !!!!!! Заполнить массив из 20-ти элементов целыми случайными числами в диапазоне [ 10;99], вычислить количество четных элементов массива

Answer 1

Program z;
var a:array[1..20] of integer;
i,k:integer;
begin
randomize;
for i:=1 to 20 do
begin
a[i]:=random(10,99);
write(a[i],' ');
end;
writeln;
k:=0;
for i:=1 to 20 do
if a[i] mod 2=0 then k:=k+1;
writeln(k);
end.

Answer 2

Хорошо, вот пример кода на Pascal ABC, который заполняет массив из 20 элементов случайными целыми числами в диапазоне [10; 99] и вычисляет количество четных элементов массива:

pascalCopy code
program CountEvenElements;

const
  ARRAY_SIZE = 20;
  MIN_VALUE = 10;
  MAX_VALUE = 99;

var
  arr: array[1..ARRAY_SIZE] of integer;
  i, evenCount: integer;

begin
  Randomize; // Инициализация генератора случайных чисел

  // Заполнение массива случайными целыми числами в диапазоне [10; 99]
  for i := 1 to ARRAY_SIZE do
    arr[i] := Random(MAX_VALUE - MIN_VALUE + 1) + MIN_VALUE;

  // Вывод элементов массива для проверки (необязательно, можно закомментировать)
  writeln('Сгенерированный массив:');
  for i := 1 to ARRAY_SIZE do
    write(arr[i], ' ');
  writeln;

  // Подсчет количества четных элементов массива
  evenCount := 0;
  for i := 1 to ARRAY_SIZE do
  begin
    if arr[i] mod 2 = 0 then
      Inc(evenCount);
  end;

  // Вывод результата
  writeln('Количество четных элементов массива: ', evenCount);
end.

Здесь мы используем функцию Randomize, чтобы инициализировать генератор случайных чисел. После этого заполняем массив случайными числами в диапазоне [10; 99] с помощью функции Random, которая генерирует случайное целое число от 0 до аргумента, переданного в нее (в данном случае, MAX_VALUE - MIN_VALUE + 1, чтобы охватить весь диапазон). Затем проходим по массиву и подсчитываем количество четных элементов.

Обратите внимание, что Pascal ABC может называться иначе в зависимости от среды разработки. Убедитесь, что ваша среда понимает ключевые слова и синтаксис, указанные выше.