Дана матрица 4 на 4 упорядочить каждыйстолбц по возрастанию методом пузырька

206

348

Посмотреть ответы 2

Ответы на вопрос:

ivanovaanastasi1

Информатика

4,4(88 оценок)

Const n=4; var arr: array[1..n, 1..n] of integer; i, j, t, buf: integer; begin for i: =1 to n do for j: =1 to n do begin write('введите элемент: '); readln(arr[i,j]); end; writeln('введеная матрица: '); for i: =1 to n do begin for j: =1 to n do write(arr[i,j]: 4); writeln(); end; //сортировка for j: =1 to n do for i: =1 to n-1 do for t: =i+1 to n do if arr[i,j] > arr[t,j] then begin buf : = arr[i,j]; arr[i,j] : = arr[t,j]; arr[t,j] : = buf; end; writeln('отсортированная матрица: '); for i: =1 to n do begin for j: =1 to n do write(arr[i,j]: 4); writeln(); end; end.

Spy1337

Информатика

4,7(33 оценок)

Var ar: array[1..10] of integer; max,maxi,zeroi,i: integer; begin randomize; max: =-1; writeln('first array: '); for i: =1 to 10 do begin; ar[i]: =random(10); write(ar[i]: 4); if max< ar[i] then begin; max: =ar[i]; maxi: =i; end; end; for i: =1 to 10 do if ar[i]=0 then begin; zeroi: =i; break; end; ar[maxi]: =zeroi; writeln; writeln('final array: '); for i: =1 to 10 do write(ar[i]: 4); end.