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.