Задача в Паскале.Найти количество элементов четного массива
Задача в Паскале.Найти количество элементов четного массива
Гость
Ответ(ы) на вопрос:
ГостьЯ понял задание и написал программу:
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.
Не нашли ответ?
Похожие вопросы