Программа excel работать с большими табличными вычислениями.
annademidova-74
21.09.2022
Var a: array [1..6, 1..5] of integer; i, j,n : longint; begin for i: = 1 to 6 do for j: = 1 to 5 do read (a[i, j]); writeln(); for j: = 1 to 5 do for i: = 1 to 5 do if a[2, i] > a[2, j] then swap(a[2, i], a[2, j]); for i: = 1 to 6 do begin for j: = 1 to 5 do write(a[i, j], ' '); writeln(); end; end.
mtcover
21.09.2022
Const n =5; //константа var a: array [1..n] of integer; //массив под 5 чисел i,x,j: integer; begin for i: = 1 to n do //ввод чисел begin readln(a[i]); end; writeln('числа в порядке возрастания: '); for i: = 1 to n do //сортировка массива for j: = 1 to n do begin if (a[i]< a[j]) then // если i-й элемент < j-го, то меняем местами begin x: =a[i]; a[i]: =a[j]; a[j]: =x; end; end; for j: = 1 to n do //вывод чисел if j < > 5 then write(a[j]+',') else write(a[j]); readln end.