Рисунки картины чертежи схемы карты фотографии -это примеры...

Question

Информатика: Рисунки картины чертежи схемы карты фотографии -это примеры...

Наташа2511 · Accepted Answer

// PascalABC.Net 3.0, сборка 1064 const   n = 10; var   ms: array[1..n] of string;   t: string;   i, j: integer;   f: Text; begin   { Чтение матрицы из файла }   Assign(f, in.txt ); Reset(f);   for i := 1 to n do Readln(f, ms[i]);   Close(f);   { Вывод матрицы на экран }   Writeln( *** Бинарная матрица *** );   for i := 1 to n do Writeln(ms[i]);   { Сортировка обменом (простейшая) }   for i := 1 to n - 1 do     for j := 1 to n - 1 do       if ms[j] ms[j + 1] then       begin t := ms[j]; ms[j] :=...

MOGZ ответил