Вывести все нечётные числа

[SmileSTR]

Вывести все нечётные числа начиная с первой единицы до первой пятерки.

[Serge_Bliznykov]

неужели так всё плохо?!
или я чего-то не понимаю?

варианты решения

цикл по i от 1 до 5 делать
  если остаток от целочисленного деления  на 2 не равен нулю тогда
     вывести число

или

цикл по i от 1 до 5 делать
  если odd(i) тогда  вывести i

или

i присвоить 1;
цикл пока i меньше-равно 5 делать
    вывести i
    увеличить i на 2
конец цикла

[Rififi]

SmileSTR

Вывести все нечётные числа начиная с первой единицы до первой пятерки.

program nechetnye_chisla_shkolota_version;
uses crt;
begin
   writeln('1 3 5');
end.

[TinMan]

Я так полагаю, речь идет об элементах массива..

i:= 1;
while (i<=n) and (a[i]<>1) do inc(i);
while (i<=n) and (a[i]<>5) do begin
  if Odd(i) then write(i:5);
  inc(i)
end;
if i<=n then write(5:5);