Question

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

Answer 1

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.