Помогите что то не идет программа
что должна программа делать?
да
что да?
программа должна быть
задан двумерный массив . расположить все элементы матрицы в строку возрастания
Дата и время правильное?
Var i,n,p,j:integer; z:array[1..100]of integer;beginreadln(n);for i:=1 to n do readln(z[i]);for i := 1 to n - 1 do for j := i + 1 to n do if z[i] > z[j] then begin p := z[i];z[i] := z[j];z[j] := p end; for i:= 1 to n do writeln(z[i]); end.