Pascal ABC

Написание программы

Заполнить двумерный массив А (MхN) элементов числами из текстового файла. Каждую строку массива А упорядочить по убыванию пересчетом в соответствующую строку массива В (MxN).

Uses crt;

const nmax=16;

var a:array[1 ... nmax, 1 ... nmax] of char;

b:array[1 ... nmax] of char;

m, n, i, j:byte;

buf:char;

s:string;

f:text;

begin

clrscr;

assign (f,'input. txt') ;

reset (f) ;

read (f, m, n) ;

readln (f, s) ;

writeln ('Исходная матрица:') ;

for i:=1 to m do

begin

readln (f, s) ;

for j:=1 to n do

begin

a[i, j]:=s[j];

write (a[i, j]:2) ;

end;

writeln;

END.