Question

Паскаль.Как удвоить значения чётных столбцов матрицы? program d1; type mas=array [1..5,1..5] of integer; const x:mas=((1,2,3,4,5),(5,4,3,2,1),(6,7,8,9,10),(11,12,13,14,15),(10,9,8,7,6)); var q,a: mas; i,j:integer; function Naim(const x:mas): integer; var i,imin: integer; begin imin:=1; for i:=1 to 5 do if x[i,i] Naim:=x[imin,imin]; end; procedure Udv

Answer 1

program d1;

type mas=array [1..5,1..5] of integer;

const  

x:mas=((1,2,3,4,5),

(5,4,3,2,1),

(6,7,8,9,10),

(11,12,13,14,15),

(10,9,8,7,6));

var q,a: mas;

i,j:integer;

function Naim(var chislo: integer): integer;

var i,j,imin: integer;

begin

imin:=chislo;

for i:=1 to 5 do

for j:=1 to 5 do

if imin>x[i,j] then imin:=x[i,j];

Naim:=imin

end;

Procedure Udv(var stolb: integer);

begin

stolb:=stolb*2;

end;

begin

writeln('Исходный массив');

for i:=1 to 5 do begin writeln;

for j:=1 to 5 do write(x[i,j],' ');

end;

writeln;

writeln('Преобразованный массив');

for i:=1 to 5 do begin

writeln;

for j:=1 to 5 do begin

if (not odd(j)) then Udv(x[i,j]);

write(x[i,j],' ');

end;

end;

writeln;

writeln('Наименьшее число: ',Naim(x[1,1]));

end.

Полностью готовая программа, пришлось подправлять еще и функцию Naim

Answer 2

Для удвоения значений чётных столбцов матрицы в языке программирования Pascal, вы можете использовать следующий код, который также включает в себя определение функции Naim и процедуры Udv:

program d1;

type
  mas = array[1..5, 1..5] of integer;

const
  x: mas = ((1, 2, 3, 4, 5), (5, 4, 3, 2, 1), (6, 7, 8, 9, 10), (11, 12, 13, 14, 15), (10, 9, 8, 7, 6));

var
  q, a: mas;
  i, j: integer;

function Naim(const x: mas): integer;
var
  i, imin: integer;
begin
  imin := 1;
  for i := 1 to 5 do
    if x[i, i] < x[imin, imin] then
      imin := i;
  Naim := x[imin, imin];
end;

procedure Udv(var x: mas);
var
  i, j: integer;
begin
  for j := 1 to 5 do
  begin
    if j mod 2 = 0 then  // Проверяем, что столбец чётный
    begin
      for i := 1 to 5 do
      begin
        x[i, j] := x[i, j] * 2; // Удваиваем значение в чётном столбце
      end;
    end;
  end;
end;

begin
  // Вывод исходной матрицы
  writeln('Исходная матрица x:');
  for i := 1 to 5 do
  begin
    for j := 1 to 5 do
      write(x[i, j], ' ');
    writeln;
  end;

// Удваиваем значения чётных столбцов
  Udv(x);

// Вывод матрицы после удвоения
  writeln('Матрица после удвоения чётных столбцов:');
  for i := 1 to 5 do
  begin
    for j := 1 to 5 do
      write(x[i, j], ' ');
    writeln;
  end;

readln;
end.

Этот код определяет функцию `Naim`, которая находит минимальное значение на главной диагонали и процедуру `Udv`, которая удваивает значения в чётных столбцах матрицы `x`. После вызова процедуры `Udv`, значения чётных столбцов удваиваются, и результат выводится на экран.