Решить , ! даны целые положительные числа m и n. сформировать целочисленную матрицу размера m х n, у которой все элементы j-го столбца имеют значение 5•j (j = 1, …, n). вывести матрицу в общепринятом виде.

Var a: array[1..100,1..100] of integer; m,n,i,j: integer; begin read(m,n); for i: =1 to m do for j: =1 to n do a[i,j]: =j*5; for i: =1 to m do begin writeln; for j: =1 to n do write(a[i,j]: 4); end; end.как то так.

var

i,n: integer;

a: array [1..100] of integer;

begin

readln(n);

for i: =1 to n do

begin

if i mod 2 =0 then a[i]: =i-3

else a[i]: =i+3;

writeln(a[i]);

end;

end.