Дан массив целых чисел (заполнить случайными числами от 20 до 99). Найти номер первого нечетного элемента. Если нечетных элементов в массиве нет, то напечатать соответствующее сообщение
Program rt;
const n=10;
var i,z:byte;
a:array[0..n] of integer;
x:integer;
begin
write(Массив - );
for i:=0 to n do
Begin
a[i]:= random(20,99);
write(a[i]:3);
end;
writeln;
for i:=0 to n do
if a[i] mod 2 <> 0 then
begin
write(Номер 1-го нечетного - ,i+1);
break;
end;
for i:=0 to n doif a[i] mod 2 <> 0 then
z:=z+1;if z=0 then
write(Нечетных чисел в массиве нет!);
end.
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
