Question

Задача в Паскале.Найти количество элементов четного массива

Answer 1

Я понял задание и написал программу:


uses Crt;
const n=25;
type Mas=array [1..n] of integer;
var   i, Col: integer;
       A: Mas;
begin
 ClrScr;
 Randomize;
 Col:=0;
 WriteLn(' Massiv A:');
 for i:=1 to n do
   begin
       A[i]:=10+random (90);
       Write(A[i]:3);
       if (A[i] mod 2=0) then Col:=Col+1;
   end;
   Writeln; WriteLn;
   WriteLn(' Col = ', Col);
 ReadLn;
end.

Answer 2

Для решения задачи в Паскале, необходимо выполнить следующие шаги:

1. Объявить массив и заполнить его значениями. В данном случае массив будет содержать только четные числа. Пример объявления и заполнения массива с четными числами: ```pascal var arr: array[1..10] of Integer; // объявление массива i, count: Integer; // переменные для цикла и подсчета количества элементов begin // заполнение массива четными числами for i := 1 to 10 do begin arr[i] := i * 2; end; ```

2. Создать переменную "count" и инициализировать ее нулем. Эта переменная будет использоваться для подсчета количества четных элементов в массиве.

   count := 0;
   

3. Пройти по всем элементам массива и проверить, является ли каждый элемент четным. Если элемент четный, увеличить значение переменной "count" на 1.

   for i := 1 to 10 do
   begin
     if arr[i] mod 2 = 0 then
     begin
       count := count + 1;
     end;
   end;
   

4. Вывести значение переменной "count", которая будет содержать количество четных элементов в массиве.

   writeln('Количество четных элементов в массиве: ', count);
   

Таким образом, после выполнения всех шагов, в консоли будет выведено количество четных элементов в массиве.