• 
  • 01 January 2021
  Информатика
  • Автор: Prussiay

  

  Паскаль.Как удвоить значения чётных столбцов матрицы?
  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

• 
  • 01 January 2021
  • Ответ оставил: LikeSmileLJkee

  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

  0
• 
  • НЕ НАШЛИ ОТВЕТ?

  Если вас не устраивает ответ или его нет, то попробуйте воспользоваться поиском на сайте и найти похожие ответы по предмету школьной программы: информатика.
  На сегодняшний день (07.09.2026) наш сайт содержит 109576 вопросов, по теме: информатика. Возможно среди них вы найдете подходящий ответ на свой вопрос.

  Найти другие ответы
• Нажимая на кнопку "Ответить на вопрос", я даю согласие на обработку персональных данных

  Ответить на вопрос

Последние опубликованные вопросы