В одномерном массиве найти номер первого четного числа

@Игорь26 · Регистрация: 27.12.2011

В одномерном массиве целых чисел a1, а2, ..., an найти но¬мер первого четного числа. Если четных чисел нет, то отве¬том может быть число 0

У меня почему то массив не выводит на экран

@chizhov · 12.01.2012, 00:14

Pascal

program p_1;
uses crt;
var h:array [1..5] of byte;
i,m:byte;
begin
clrscr;
randomize;
for i:=1 to 5 do begin
h[i]:=random(100)+1;
writeln(h[i]:5);
end;
writeln;
m:=0;
for i:=1 to 5 do begin
if h[i] mod 2=0 then begin
m:=i; break; end; end;
write('номер первого четного->',m);
end.

@Игорь26 0 / 0 / 0 Регистрация: 27.12.2011 Сообщений: 25
		1
	В одномерном массиве найти номер первого четного числа 11.01.2012, 23:38. Показов 1901. Ответов 1 Метки нет (Все метки) В одномерном массиве целых чисел a1, а2, ..., an найти но¬мер первого четного числа. Если четных чисел нет, то отве¬том может быть число 0 У меня почему то массив не выводит на экран 0

Опции темы

В одномерном массиве найти номер первого четного числа

Решение