написать программку в Паскале, которая обретает наибольшее нечетное отрицательное число посреди

Паскаль? С++?

паскаль

Varf:text;A,M:integer;BeginAssign(f,'C:\Users\user\Desktop\Файл.txt');Reset(f);M:=0;RepeatRead(f,A);if (A mod 2 = 0)and(A<0) then M:=A;Until Eof(f);Close(f);if M<>0 thenBeginReset(f);RepeatRead(f,A);if (A>M)and(A mod 2 = 0)and(A<0) then M:=A;Until Eof(f);Close(f);Assign(f,'C:\Users\user\Desktop\ДругойФайл.txt');Rewrite(f);Write(M);Write(f,M);End;End.

Проверь

хорошо, спасибо, на данный момент проверю

все работает, но он не может найти путь к файлу :(

Скажите пожалуйста, а числа в файле должны быть как записаны? в столбик?

Через пробел

Program n1;
var a,max: integer;
f: text;
begin
assign(f,'input.txt');
reset(f);
max:=0;
while not eof(f) do
begin
read(f,a);
if (абс(a)gt;max) and (alt;0) and (a mod 2 lt;gt;0) then max:=a;
end;
close(f);
assign(f,'output.txt');
rewrite(f);
write(f,max);
close(f);
end.