Матрицы, строки, файлы, 3 несложных задания Опции

[Timik]

Задание №4 (массивы)
11. Дана матрица целых чисел размером 10*12. Напечатайте индексы всех ее седловых точек. (Седловой точкой называется элемент, который является наименьшим в своей строке и наибольшим в своем столбце или, наоборот, наибольшим в своей строке и наименьшим в своем столбце).

Задание №5 (работа со строками)
11.Школьник набрал на компьютере реферат. Когда он отлучился, его друзья решили над ним подшутить: один предложил удалить все гласные, другой – заменить буквы «г» и «р» их кодовыми значениями, третий – записать текст в обратном порядке. Какой текст увидит школьник после того, как каждый из друзей внесет свои исправления в текст? и какой текст будет получен после применения всех трех вариантов?

Задание №6 (работа с файлами)
11. Имеются два текстовых файла с одинаковым числом строк. Выяснить, совпадают ли их строки. Если нет, то получить номер первой строки, в которой эти файлы отличаются друг.

[volvo]

klem4
Я бы делал что-то типа этого

Код

uses crt;
const
 n=3;
 m=3;

(*
const
 x: array[1..n, 1..m] of integer =
   ((1, 2, 3),
    (3, 4, 5),
    (7, 8, 9));
*)
var
 x: array[1..n, 1..m] of integer;
 i, j, k:integer;

 s_max, s_min: integer;
 flag_min, flag_max: boolean;

Begin
 clrscr;
 randomize;
 for i := 1 to n do
   begin
     for j:=1 to m do
       begin
         x[i,j]:=random(11);
         write(x[i,j]:2, ' ')
       end;
     writeln
   end;
 writeln;

 for i := 1 to n do
   begin
     s_min := 1; s_max := 1;
     for j := 2 to m do
       if x[i, j] > x[i, s_max] then s_max := j
       else
         if x[i, j] < x[i, s_min] then s_min := j;

     flag_min := true; flag_max := true;
     for k := 1 to n do
       begin
         flag_min := flag_min and (x[k, s_max] >= x[i, s_max]);
         flag_max := flag_max and (x[k, s_min] <= x[i, s_min]);
       end;

     if flag_max then
       writeln('Fpoint - ','x[ ',i,', ',s_min,' ] = ',x[i, s_min])
     else
       if flag_min then
         writeln('Fpoint - ','x[ ',i,', ',s_max,' ] = ',x[i, s_max]);
   end;
 readln
end.