Free Pascal!!! задание по массивам!!!!!!!!!

[ByAlex]

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

большое спасибо)))

тут просто еще задание на массив.

упорядочить m-ую строку по невозрастанию элементов. вывести исходный массив и полученный вектор.

Лови -

uses crt;
const
  N=5;
var
  Arr:array[1..5,1..5] of integer;
  i,j,t,m:integer;
begin
  writeln('Input the matrix[',N,',',N,'] - ');
  for i := 1 to N do
    for j := 1 to N do
      read(Arr[i,j]);
  writeln;
  write('input the number of string = ');
  readln(m);
  for i := 1 to N do
    for j := 1 to N-1 do
    begin
      if Arr[m,j]<Arr[m,j+1] then
      begin
        t:=Arr[m,j];
        Arr[m,j]:=Arr[m,j+1];
        Arr[m,j+1]:=t;
      end;
    end;
  writeln(#13#10'Result massive - ');
  for i := 1 to N do
  begin
    for j := 1 to N do
      write(Arr[i,j],' ');
    writeln;
  end;
  write(#13#10'Vector is - ');
  for j := 1 to N do
    write(Arr[m,j],' ');
  readln;
end.