Поменять строки местами в двумерном массиве
Категория: Delphi/Pascal
2016-04-04 15:00:59
code: #pascal
Program massive; const N = 2; var Mas: array [0..N,0..N] of string; i,j: integer; str: string; begin writeln('Введите элементы массива: '); for i := 0 to N do for j := 0 to N do read(Mas[i,j]); //перестановка элементов for i := 0 to N do begin j := 0; while (j <= N - 1) do begin str := Mas [i,j]; Mas[i,j] := Mas [i, j+1]; Mas [i, j+1] := str; j := j + 2; end; end; writeln('Вывод элементов массива: '); for i := 0 to N do begin for j := 0 to N do write(Mas[i,j],' '); writeln; end; end.
автор: Zerkalka
code: #pascal
var a: array [1..100, 1..100] of integer; n, k1, k2, j, i, x: integer; begin writeln('Введите размер массива <100'); read (n); for i:=1 to n do begin for j:=1 to n do begin a[i,j]:=random(101); write(a[i,j], ' '); end; writeln; end; writeln('Введите номер строк, которые нужно поменять местами'); read(k1, k2); for j:=1 to n do begin x := a[k1, j]; a[k1, j] := a[k2, j]; a[k2, j] := x; end; writeln; for i:=1 to n do begin for j:=1 to n do write(a[i,j], ' '); writeln; end; end.
автор: Trall Satklif
Поделиться: