- 03.04.2018 05:11
- Информатика
- remove_red_eye 6578
- thumb_up 24
Ответы и объяснения 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.
- 04.04.2018 03:14
- thumb_up 26
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.