Опубликовано 11.06.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

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


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.