Bog5635545

16.06.2023 22:22

Информатика

Есть ответ 👍

Паскаль.как удвоить значения чётных столбцов матрицы? program d1; type mas=array [1..5,1..5] of integer; const x: mas=((1,2,3,4,,4,3,2,,7,8,9,,12,13,14,,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

253

457

Посмотреть ответы 2

Ответы на вопрос:

polsedegova

Информатика

4,5(65 оценок)

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;

writeln;

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

end.

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

zulya24

Информатика

4,7(80 оценок)

d: \олимпиада\информатика

сначала он был d: \олимпиада\информатика, спустился на 1 уровень вниз - d: \олимпиада\информатика\что-то еще. потом дважды на уровень вверх - 1 раз d: \олимпиада\информатика, 2 раза d: \олимпиада.

следовательно он работал d: \олимпиада\информатика.

Реши свою проблему, спроси otvet5GPT

Быстро
Мгновенный ответ на твой вопрос
Точно
Бот обладает знаниями во всех сферах
Бесплатно
Задай вопрос и получи ответ бесплатно

Задай свой вопрос

Популярно: Информатика

Есть вопросы?

Как otvet5GPT работает?

otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса.
Сколько это стоит?

Проект находиться на стадии тестирования и все услуги бесплатны.
Могу ли я использовать otvet5GPT в школе?

Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое!
В чем отличия от ChatGPT?

otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.