Номер последнего нечётного члена последовательност Опции

[Giv]

Люди! Помогите!
Задание звучит так:
Даны натуральные число n? целые числа а1, ...an. Необходимо найти номер последнего  нечётного члена последовательности.
Help me, please!

[Giv]

Всем спасибо, я тут вчера вечерком покумекал. И вот что я высидел!

Код

Program Nomer;
uses crt;
var
r:array[1..100] of integer;
x,n,i,nom:Integer;
begin
clrscr;
nom:=0;
writeln('Введите размерность массива');
read(n);
writeln('Введите элементы из ',n, ' чисел');
for i:=1 to n do
Read(r[i]);
writeln('Исходный массив:');
for i:=1 to n do
write(r[i]:4);
writeln;
for i:=1 to n do
begin
nom:=nom+1;
if (r[i]mod 2)<>0 then x:=nom;
end;
writeln('Номер последнего нечётного члена последовательности ->',x);
readln;
readln;
end.

Ваше мнение?

Сообщение отредактировано: volvo - 17.12.2004 16:06