Программирование с использованием оператора For (Turbo Pascal)

[Dina 85]

Дано К натуральных чисел.Вывести на экран все нечетные числа.

Дано К чисел.Напечатать квадраты всех отрицательных чисел.

Можно что-то одно из двух помочь решить.Два задания не обязательно!
БЕЗ МАССИВА!

[VIK_aka_TOR]

с учетом что хранятся в массиве

1

for i:=1 to k do
if odd(mas[i]) then // или же if mas[i] mod 2 = 1 then
 writeln(mas[i]);

2

for i:=1 to k do
if mas[i] < 0 then
writeln(mas[i] * mas[i]);

p.s. объявление переменных и ввод чисел нарисуете сами

[GetMax]

Дано К натуральных чисел.Вывести на экран все нечетные числа.

Begin
....
for i:=1 to k do
  if odd(Mas[i]) then
    Writeln(Mas[i])
End.

[Dina 85]

Я не указала что без использования массивов (мы эту тему еще не проходили).

[GetMax]

Тогда можно как то так

for i:=1 to k do
Begin
  Readln(digit);
  if odd(digit) then Writeln(digit)
End;

[Dina 85]

Сообщение от GetMax

Тогда можно как то так

for i:=1 to k do
Begin
  Readln(digit);
  if odd(digit) then Writeln(digit)
End;

Не получается так, поймите мы сейчас только на начальном уровне проходим и мне попроще нужно конкретно а все эти digit и odd даже не понятно к чему.

[GetMax]

Дано К натуральных чисел

Вообще не очень понятно как именно они у Вас даны. Это не массив, тогда может быть файл или список. Может их нужно ввести с клавиатуры?

и мне попроще нужно конкретно а все эти digit и odd даже не понятно к чему.

Digit - это просто переменная. Не нравится эта, объявите свою(надеюсь этому Вас уже научили).
Odd - стандартная функция проверки на нечетность. Альтернатива, как уже было сказано, это

 if mas[i] mod 2 = 1 then

Читайте книги - проще уже некуда.

[Dina 85]

так как вы написали программа не выполняется.если не знаете то не пишите.
к натуральных чисел ввводится с клавиатуры.

[GetMax]

так как вы написали программа не выполняется

Ясное дело. Надо еще описать переменные, ввести k. Еще не плохо было бы написать ошибки, которые у Вас появляются.

если не знаете то не пишите.

А вообще грубить не стоит, иначе так и останетесь со своей не выполненной домашней работой.

[Dina 85]

program aaa;
var n,i:integer;
begin
write('введите количесто элементов последовательности');
readln(n);
for i:=1 to n do
begin
if i mod 2<>0 then
writeln(i);
end;
end.