Очень важно! задачи в паскале

[yTko1]

Составить программу в паскале: составить программу для нахождения первого отрицательного элемента в заданной с клавиатуры числовой последовательности N чисел(без использования массивов).Вывести на печать номер и значение первого отрицательного элемента или сообщения о том что в заданной числовой последовательности отрицательных чисел нет.
И ещё 1 задачка(
Определить сколько пятизначных чисел имеют не чётную среднию цифру числе. Вывести все эти числа на экран.
Очень буду благодарен, ведь без этих задач не видать мне дальше учёбы

[Mad_Cat]

по 1$ за задачку устроит?
1

var i,n:integer;
a,ab,k:real;
begin
repeat
write('n=');
readln(n);
until n>0;
i:=0;
k:=0;
repeat
inc(i);
writeln('Введите число:');
Readln(a);
if (a<0) and (k=0) then begin k:=i; ab:=a;end;
until (i=n);
if (k<>0) then writeln('#',k,' =',ab)
else writeln('В заданной числовой последовательности отрицательных чисел нет');
readln;
end.

Определить сколько пятизначных чисел имеют не чётную среднию цифру числе. Вывести все эти числа на экран.

их 450 точно выводить? если да то сотрите { и }

var i,n:longint;
begin
n:=0;
for i:=100 to 999 do
begin
if ((i mod 10) mod 2)=1 then begin {write(i,'  ')};n:=n+1;end;
//if n mod 10 =0 then writeln;
end ;
writeln('количество=',n);
readln;
end.

[yTko1]

Если будет всё правельно решено, почему бы и нет

[Mad_Cat]

yTko1, Готово)

[yTko1]

Mad_Cat слушайте я посторяюсь завтра перевести денгу и если что ещё работку подогнать за такую же плату) спасибо )

[yTko1]

В долгу не останусь )