Задача в Паскале.Найти количество элементов четного массива
Аноним:
А что значит выражение: "ЧЁТНЫЙ МАССИВ"???
там не четный а одномерный сорян
Но если я задаю массив, я уже задаю количество элементов в нем.... В чем ФИШКА задачи?
там найти количество четных элементов одномерного массива
А-а-а-а )))))))))
Ответы
Ответ дал:
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.
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.
Вас заинтересует
2 года назад
2 года назад
7 лет назад
7 лет назад
9 лет назад