Файли

[ALABAMA]

В каждой строке матрицы К (6,5) определить последний отрицательное элемент и его индекс.

[Roof]

program my_array;
uses crt;
const
  n = 6; //количество строк матрицы
  m = 5; //количество столбцов матрицы
var
  a: array[1..n, 1..m] of real; // сама матрица :)
  last_min: real;//последнее отрицательное значение в строке
  check: boolean; //проверка есть ли вообще отрицательные в строке
  i, j: byte; //счетчики
  imin, jmin: byte; //  индексы последнего отрицательного в строке
begin
  clrscr; //очищаем экран
  randomize;
  Writeln('Matrica:');
  //заполняем случайными значениями матрицу и выводим на экран
  for i := 1 to n do
  begin
    for j := 1 to m do
    begin
      a[i, j] := random(100)/10-5;
      write(a[i, j]: 4: 2, '  ');
    end;
    writeln;
  end;
  //находим последние отрицательные элементы и выводим на экран
  Writeln('Indexi i znacheniya poslednih otric. elementov:');
  for i := 1 to n do
  begin
    check := false; // считаем, что нету отрицательных
    for j := 1 to m do
    begin
      if (a[i, j] < 0) then // если отрицательные появились,
      begin // то запоминаем индексы и значение
        check := true;
        imin := i;
        jmin := j;
        last_min := a[i, j]
      end
    end;
    if check then
      Writeln('Stroka ', i, ': ', imin, ' ', jmin, ' Zna4enie', last_min: 4: 2)
    else
      Writeln('Stroka ', i, ' net otricatelnih elementov');
  end;
  readln;
end.

А какие файлы? Опиши подробнее задание, если с файлами надо.

[ALABAMA]

там нет точного указания спасибо чувак
а можеш ещо почь плиз ?

[Roof]

Пожалуйста.
Только я не чувак
Создавай новую тему для нового вопроса.

[ALABAMA]

Надо создать файл и записать в него числовую матрицу

[ROMA2PVT]

var
a:array[1..100,1..100] of integer;
i,j,m,n:integer;
f:text;
begin
m:=4;
n:=5;
assign(f,'c:\massiv.txt');
for i := 1 to m do
    begin
     for j:=1 to n do
       begin
          a[i,j]:=Random(10)-5;
          write(a[i,j]:3,' ');
       end;
       writeln;
    end;
    {запись массива в файл}
    rewrite(f);
     writeln(f,m);
     writeln(f,n);
     for i := 1 to m do
    begin
     for j:=1 to n do
       begin
       write(f,a[i,j]:3,' ');
    end;
    writeln;
    end;
    Close(f);
    writeln;
    {чтение массива из файла}
reset(f);
readln(f,m);
readln(f,n);
for i:=1 to m do
    begin
    for j:=1 to n do
    begin
        read(f,a[i,j]);
        write(a[i,j]:3,' ');
    end;
    writeln;
    end;
close (f);
end.

Вот те запись и чтение массива.Разбирайся.

[Roof]

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

Надо создать файл и записать в него числовую матрицу

program my_array;
uses crt;
const
  n = 6; //количество строк матрицы
  m = 5; //количество столбцов матрицы
var
  a: array[1..n, 1..m] of real; // сама матрица :)
  last_min: real;//последнее отрицательное значение в строке
  check: boolean; //проверка есть ли вообще отрицательные в строке
  i, j: byte; //счетчики
  imin, jmin: byte; //  индексы последнего отрицательного в строке
  f:text; //имя текстового файла
begin
  clrscr; //очищаем экран
  randomize;
  assign(f,'c:\massiv.txt');
  rewrite(f);
  writeln(f,n);
  writeln(f,m);

  Writeln('Matrica:');
  //заполняем случайными значениями матрицу, выводим на экран и записываем в файл
  for i := 1 to n do
  begin
    for j := 1 to m do
    begin
      a[i, j] := random(100)/10-5;
      write(a[i, j]: 4: 2, '  ');
      write(f, a[i, j]: 4: 2,'  ');
    end;
    writeln;
  end;
  //находим последние отрицательные элементы и выводим на экран
  Writeln('Indexi i znacheniya poslednih otric. elementov:');
  for i := 1 to n do
  begin
    check := false; // считаем, что нету отрицательных
    for j := 1 to m do
    begin
      if (a[i, j] < 0) then // если отрицательные появились,
      begin // то запоминаем индексы и значение
        check := true;
        imin := i;
        jmin := j;
        last_min := a[i, j]
      end
    end;
    if check then
      Writeln('Stroka ', i, ': ', imin, ' ', jmin, ' Zna4enie', last_min: 4: 2)
    else
      Writeln('Stroka ', i, ' net otricatelnih elementov');
  end;
  readln;
end.

На диске C найдешь файл massiv.txt, его создает эта программа