Макрица даны целые положительные числа m,n и k. сформировать целочисленную матрицу размером m*n, у которой все элементы имеют значения k+i+j (i=1,2..m; j=1,2..n)
VAR a:array[1..10000,1..10000]of integer; m,n,k,i,j: integer; begin write('Введите 3 целых числа m, n, k = '); read(m,n,k); writeln;for i:=1 to m do begin for j:=1 to n do begin a[i,j]:=i+j+k; write(a[i,j]:6); end;writeln; end; end. В верхней части картинки, занесена эта программа а в нижней части введены 3 числа (3 4 5 ) и показана созданная матрица
begin Randomize; writeln('Исходный массив'); for i := 1 to n do begin a[i] := Random(100) - 50; write(a[i]:6); if a[i] < 0 then a[i] := sqr(i) end; writeln; writeln('Результирующий массив'); for i := 1 to n do write(a[i]:6); writeln end.
begin Randomize; writeln('Исходный массив'); for i := 1 to n do begin a[i] := Random(100) - 50; write(a[i]:6); if a[i] < 0 then a[i] := sqr(i) end; writeln; writeln('Результирующий массив'); for i := 1 to n do write(a[i]:6); writeln end.
m,n,k,i,j: integer;
begin
write('Введите 3 целых числа m, n, k = '); read(m,n,k);
writeln;for i:=1 to m do begin
for j:=1 to n do begin
a[i,j]:=i+j+k; write(a[i,j]:6);
end;writeln;
end;
end.
В верхней части картинки, занесена эта программа а в нижней части введены 3 числа (3 4 5 ) и показана созданная матрица