Предмет: Информатика,
автор: nuclearseason
Задача в Паскале.Найти количество элементов четного массива
Аноним:
А что значит выражение: "ЧЁТНЫЙ МАССИВ"???
там не четный а одномерный сорян
Но если я задаю массив, я уже задаю количество элементов в нем.... В чем ФИШКА задачи?
там найти количество четных элементов одномерного массива
А-а-а-а )))))))))
Ответы
Автор ответа:
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.
Интересные вопросы
Предмет: Другие предметы,
автор: savelev031
Предмет: Українська мова,
автор: рпрситмиср
Предмет: Русский язык,
автор: kristina56254649
Предмет: Алгебра,
автор: insslava
Предмет: История,
автор: Daotvali