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

Question

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

Comments

А что значит выражение: "ЧЁТНЫЙ МАССИВ"???

---

там не четный а одномерный сорян

---

Но если я задаю массив, я уже задаю количество элементов в нем.... В чем ФИШКА задачи?

---

там найти количество четных элементов одномерного массива

---

А-а-а-а )))))))))

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.