Нужно написать программу....файлы...матрицы

[Calfa]

[QUOTE=Tkirill;256569]460547998 напиши[/Q
чего то я не могу найти тебя...это номер чего?

[Calfa]

Кто захочет помочь пишите в аську (337 018 517)..а то тут не докричишься до помощи...

[crazy horse]

Напиши в раздел "фриланс" - толку будет гораздо больше

[alex_fcsm]

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

Сидела...разбирала...а в итоге ничего не поняла((((
Дана матрица B=(b ij) в степени mxn, где m<=15? n<=20. Упорядочить элементы каждой строки матрицы B по убыванию их значений, воспользовавшись методом обмена.

Ну и чего тут делать? Помимо того как файлы создать, дальше вообще не понимаю

Начнем по порядку

uses crt;
const m=15;
      n=20;
var i,j,k,mm,nn,temp:integer;
    a:array[1..m,1..n]of integer;
    

begin
readln(mm,nn);
for i:=1 to mm do
 begin
  for j:=1 to nn do
   begin
    a[i,j]:=random(100);
    write(a[i,j]:3);
   end;
   writeln;
 end;
 for i:=1 to mm do
  begin
    for j:=2 to nn do
     for k:=nn downto j do
      if a[i,k-1]<a[i,k] then begin
        temp:=a[i,k];
        a[i,k]:=a[i,k-1];
        a[i,k-1]:=temp;
      end;
  end;
  writeln('===============');
for i:=1 to mm do
 begin
  for j:=1 to nn do
    write(a[i,j]:3);
   writeln;
 end;
end.

[Calfa]

[QUOTE=alex_fcsm;257031]Начнем по порядку

uses crt;
const m=15;
      n=20;
var i,j,k,mm,nn,temp:integer;
    a:array[1..m,1..n]of integer;
    

begin
readln(mm,nn);
for i:=1 to mm do
 begin
  for j:=1 to nn do
   begin
    a[i,j]:=random(100);
    write(a[i,j]:3);
   end;
   writeln;
 end;
 for i:=1 to mm do
  begin
    for j:=2 to nn do
     for k:=nn downto j do
      if a[i,k-1]<a[i,k] then begin
        temp:=a[i,k];
        a[i,k]:=a[i,k-1];
        a[i,k-1]:=temp;
      end;
  end;
  writeln('===============');
for i:=1 to mm do
 begin
  for j:=1 to nn do
    write(a[i,j]:3);
   writeln;
 end;
end.

Спасибо, Посижу... подумаю....если смогу))))