Люди! Помогите!
Задание звучит так:
Даны натуральные число n? целые числа а1, ...an. Необходимо найти номер последнего нечётного члена последовательности.
Help me, please!
Полная версия: Номер последнего нечётного члена последовательност
так может.
Код
for i:=1 to n do
begin
if a[i]mod2<>0 then
nech:=i; {номер последнего нечетного.}
end;
begin
if a[i]mod2<>0 then
nech:=i; {номер последнего нечетного.}
end;
Лучше идти не с начала (так ты просматриваешь весь массив), а с конца. Да и короче получается - всего одна строчка :D
i:=n; while not odd(A[i]) do dec(i);
Код
i:=n; while not odd(A[i]) do dec(i);
тоже верно..)
Всем спасибо, я тут вчера вечерком покумекал. И вот что я высидел!
Ваше мнение?
Код
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.
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.
Ваше мнение?
дааа, всё гениальное просто. Действительно что-то я там понаворачивал, хотя можно сделать всё это гораздо проще. Сэнкью!
Вот только не понимаю пример, который написал trminator. Объясните пожалуйста что делает "odd(A[i]) do dec(i)"
Вот только не понимаю пример, который написал trminator. Объясните пожалуйста что делает "odd(A[i]) do dec(i)"
молодец.. что сам! 
только слишком уж удлиненный вариант. задача не сложная, а наворотов в ней ты сделал слишком много.. :
а это зачем?! если ты его вводишь, то зачем сразу же выводить?!
nom:=nom+1;
и в этом случае можно ведь не суммировать номер. а просто присваивать значению i и только в том случае, если число нечетное. а так получается лишняя операция.)
всего хорошего. :D
только слишком уж удлиненный вариант. задача не сложная, а наворотов в ней ты сделал слишком много.. :
Код
writeln('Исходный массив:');
for i:=1 to n do
write(r[i]:4);
writeln;
for i:=1 to n do
write(r[i]:4);
writeln;
а это зачем?!
если ты его вводишь, то зачем сразу же выводить?!nom:=nom+1;
и в этом случае можно ведь не суммировать номер. а просто присваивать значению i и только в том случае, если число нечетное. а так получается лишняя операция.)
всего хорошего. :D
odd пмоему определяет четность/нечетность. главное что работает..)
___
хотя может и нет.)
главное что работает..)___
хотя может и нет.)
я уже поменял nom:=nom+1 на x:=i. Ты прав! А что касается вывода массива, так это так... для наглядности, мало ли может какой-то пипл при пользовании прогой будет вводить элементы в строку, а я вывожу как положено (дл наглядности), хотя это конечно же и совсем даже необязательно ;)
Giv, угу.. все так.. только я она..
Цитата
Вот только не понимаю пример, который написал trminator.
Не получается мне это объяснить (пишу третий раз, перечитываю, понимаю, что не совсем понятно). Постучи в асю, там расскажу.
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.