Question

В массиве C(7) из целых числе, найти количество элементов четных 3. Pascal ​

Answer 1

Ответ:

Free Pascal

Объяснение:

const

 n=7;

var

 a : array [0..n] of integer;

 i, m : integer;

begin

 randomize;

 m := 0;

 for i:=0 to n-1 do begin

   a[i] := random(100);

   if a[i] mod 3 = 0 then

     inc(m);

   write(a[i], '  ');

 end;

 writeln();

 writeln('Otvet : ', m);

end.

Answer 2

Для поиска количества четных элементов в массиве C(7) из целых чисел на Pascal, вы можете использовать следующий код:

pascalCopy code
program CountEvenNumbers;
var
  C: array[1..7] of Integer;
  i, evenCount: Integer;
begin
  evenCount := 0; // Инициализируем счетчик четных чисел

  // Заполняем массив C(7) значениями (ваш массив)
  for i := 1 to 7 do
  begin
    // Здесь вы должны присвоить значения вашему массиву C, например:
    // C[i] := ...;
  end;

  // Проходим по массиву и считаем четные элементы
  for i := 1 to 7 do
  begin
    if C[i] mod 2 = 0 then
      evenCount := evenCount + 1;
  end;

  writeln('Количество четных элементов в массиве C(7): ', evenCount);
end.

В этом коде создается массив C из 7 целых чисел, и затем происходит перебор всех элементов массива для определения, сколько из них четные. Результат будет выведен на экран. Не забудьте заменить C[i] := ... на фактические значения вашего массива.