Задача в Паскале.Найти количество элементов четного массива
Аноним:
А что значит выражение: "ЧЁТНЫЙ МАССИВ"???
Ответы
Ответ дал:
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.
Вас заинтересует
11 месяцев назад
11 месяцев назад
1 год назад
1 год назад
6 лет назад
6 лет назад
7 лет назад