Задача на паскале про матрицу

[Olga O.]

Ребят,выручайте.нужно написать задачу на паскале:

Условие:
Если в заданной матрице количество отрицательных элементов в четных строках меньше количества положительных-в нечетных,то поменяйте местами последнюю строку и главную диагональ.
Дополнение:
Задачу нужно решить с внешним файлом.

Я создала в txt файле матрицу
1 2 3 4
-3 6 -2 5
8 -6 12 -1
7 -4 9 10
и назвала файл dok.
а написать программу не могу.помогите пожалуйста.

[Sazary]

Программа выводит результат на экран и перезаписывает исходный файл.

uses crt;
const N=4;
var
a : array[1..N,1..N] of integer;
i,j,tmp : integer;
f : text;
pol,otr : integer;
begin
clrscr;
assign(f,'dok');
{$i-}
reset(f);
{$i+}
if IOResult <>0 then
 begin
 writeln('File not found');
 readln;
 exit;
 end;

for i:=1 to N do
 begin
 for j:=1 to N do
  begin
  read(f,a[i,j]);
  write(a[i,j]:4);
  end;
 writeln;
 end;
writeln('----------');
close(f);
{-----}
pol := 0;
otr := 0;
for i:=1 to N do
 if odd(i) then
  for j:=1 to N do
   begin
   if a[i,j]>0 then inc(pol);
   end
 else
  for j:=1 to N do
   begin
   if a[i,j]<0 then inc(otr);
   end;
{----}
if otr<pol then
 for j:=1 to N do
  begin
  tmp := a[j,j];
  a[j,j] := a[n,j];
  a[n,j] := tmp;
  end;

rewrite(f);
for i:=1 to N do
 begin
 for j:=1 to N do
  begin
  write(a[i,j]:4);
  write(f,a[i,j]:4);
  end;
 writeln;
 writeln(f);
 end;
close(f);
readln;
end.

В следующий раз читайте правила.

[Olga O.]

Ой,спасибо большое!!!выручили меня.от всей души вам благодарна!!!

[Olga O.]

При запуске программы возникает ошибка на строчке
tmp:=a[j,j];_

помогите пожалуйста устранить ошибку.

[Sazary]

Сообщение от Olga O.

При запуске программы возникает ошибка на строчке
tmp:=a[j,j];_

Что за нижний прочерк в конце? Его нет в листинге.

Программа работает. Проверено на TP7 и FP 2.2.
Наверняка вы случайно (или специально) что-нибудь добавили.

Вот рабочий исходник.

[Olga O.]

Действительно работает и действительно я изменила ее чуть-чуть.
просто с фигурными скобками,с odd,inc и IOResult <>0 у меня ее препод не примет. мы это не проходили....и теперь я незнаю что делать....

[Sazary]

Фигурные скобки - комментарии. Все, что в них (включая сами скобки) можно удалить.
Если вы не проходили IOResult, то вот этот кусок:

{$i-}
reset(f);
{$i+}
if IOResult <>0 then
 begin
 writeln('File not found');
 readln;
 exit;
 end;

можете просто заменить на

reset(f);

Но вы должны быть уверены, что файл сущесвтует.
--------
Строчку

 if odd(i) then

можете заменить на

if i mod 2 <> 0 then

------------

inc(pol);

замените на

pol := pol + 1;

--------------

[Olga O.]

Вы просто сокровище!!!огромное спасибо!!!!