Вопрос по информатике:
найти количество четных чисел в одномерном массиве размерностью 5
- 14.01.2016 00:27
- Информатика
- remove_red_eye 1396
- thumb_up 15
Ответы и объяснения 1
Program Massiv;
Uses Crt;
var a:array[1..5] of integer;
i,n:integer;
begin
clrscr;
n:=0;
write('Исходный массив:');
for i:=1 to 5 do
begin
a[i]:=random(101);
if (a[i] mod 2)=0 then Inc(n);
write(a[i]:4);
end;
writeln;
writeln('Количество чётных элементов=',n);
readkey;
end.
- 15.01.2016 03:11
- thumb_up 4
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.