Дан двумерный массив a, размером (nm). Переставить каждый элемент побочной диагонали с элементом первого столбца.  код паскаль....

Дан двумерный массив a, размером (nm). Переставить каждый элемент побочной диагонали с элементом первого столбца.  код паскаль....
Гость
Ответ(ы) на вопрос:
Гость
Var a:array [1..50,1..50] of integer; m,n,i,j,k,b:integer; begin writeln ('Введи количество столбцов и строк'); readln (n,m); for i:=1 to n do begin for j:=1 to m do begin a[i,j]:=random(21)-10; write (a[i,j]:4); end; writeln; end; for i:=1 to n do for j:=1 to m do if n=i+j-1 then begin k:=a[i,j]; b:=b+1; a[i,j]:=a[b,1 ]; a[b,1]:=k; end; writeln; for i:=1 to n do begin for j:=1 to m do write (a[i,j]:4); writeln; end; readln; end.
Не нашли ответ?
Ответить на вопрос
Похожие вопросы