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

Question

Написать программу в Паскале, которая находит максимальное нечетное отрицательное число среди чисел ,уже записанных в готовом текстовом файле, и выводит результат в другой файл.

Comments

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

---

паскаль

---

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.

---

Проверь

---

хорошо, спасибо, сейчас проверю

---

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

---

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

---

Через пробел

Answer 1

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 (abs(a)>max) and (a<0) and (a mod 2 <>0) then max:=a;
end;
close(f);
assign(f,'output.txt');
rewrite(f);
write(f,max);
close(f);
end.

Comments

"максимальное нечетное отрицательное" если изначально max = 0, то результат так и так неверный будет

---

А, по модулю.. не заметил))

---

а что делать, если он файл найти не может на компе? я и целый путь пробовала прописывать

---

так его сначала создать надо

---

так это понятно:)

---

и поместить в папку с программой

---

оооооооооооо, вот теперь получилось)))))) уххх, спасибо большиханское :)))))