program p 2 var a array 1 4

Организация заполнение массива program p 2; var a: array [1. . 4, 1. . 4] of integer; i, j, k: integer; begin writeln ('заполнение матрицы случайными целыми числами '); randomize; for i: =1 to 4 do for j: =1 to 4 do a[i, j]: =random(10); for i: =1 to 4 do begin writeln; for j: =1 to 4 do write('a(', i, j, ')= ', a[i, j]: 1, ' '); end; writeln; writeln ('заполнение матрицы заданными целыми числами '); write ('введи целое число---> '); read (k); for i: =1 to 4 do for j: =1 to 4 do a[i, j]: =k; for i: =1 to 4 do begin writeln; for j: =1 to 4 do write('a(', i, j, ')= ', a[i, j]: 1, ' '); end; writeln ('заполнение матрицы заданными целыми числами с клавиатуры'); for i: =1 to 4 do for j: =1 to 4 do begin write ('a(', i, j, ')= '); read(a[i, j]); end; for i: =1 to 4 do begin writeln; for j: =1 to 4 do write('a(', i, j, ')= ', a[i, j]: 1, ' '); end; readln end.

program p 4; var a: array [1. . 4, 1. . 4] of integer; i, j, n: integer; Begin randomize; for i: =1 to 4 do for j: =1 to 4 do a[i, j]: =random(10); for i: =1 to 4 do begin writeln; for j: =1 to 4 do write('a(', i, j, ')= ', a[i, j]: 1, ' '); end; writeln; writeln ('элементы главной диагонали матрицы'); for i: =1 to 4 do writeln('a(', i, i, ')= ', a[i, i]: 1, ' '); writeln ('элементы над главной диагональю i<j'); for i: =1 to 4 do for j: =1 to 4 do if j>i then writeln('a(', i, j, ')= ', a[i, j]: 1, ' '); writeln ('элементы под главной диагональю i>j'); for i: =1 to 4 do for j: =1 to 4 do if j<i then writeln('a(', i, j, ')= ', a[i, j]: 1, ' '); writeln ('элементы побочной диагонали j+i>n+j nкол столцов или строк'); n: =4; for i: =1 to 4 do begin j: =n-i+1; writeln('a(', i, j, ')= ', a[i, j]: 1, ' '); end; writeln ('элементы над побочной диагональю j<n -i'); n: =4; for i: =1 to 4 do for j: =1 to 4 do if j<=n-i then writeln('a(', i, j, ')= ', a[i, j]: 1, ' '); writeln ('элементы над побочной диагональю j<n -i'); n: =4; for i: =1 to 4 do for j: =1 to 4 do if j>n-i+1 then writeln('a(', i, j, ')= ', a[i, j]: 1, ' '); writeln; readln end.