Регистрация
lenok010
24.12.2021 06:20
Информатика
Есть ответ 👍

Дана матрица размера M ´ N. Поменять местами столбцы, содержащие минимальный и максимальный элементы матрицы. На как менять элементы понимаю, а как записывать все элементы столбца куда то - не пойму

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

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

betmurzaev2015
betmurzaev2015
4,8(61 оценок)

ответ

2,0/5

2

yasadc

1)uses crt;

const m=5;

n=5;

var a:array[1..m,1..n] of integer;

b:array[1..m] of integer;

i,max,min,j,k,p:integer;

begin

randomize;

for i:=1 to m do

for j:=1 to n do

a[i,j]:=random(20);

min:=20;

max:=0;

for i:=1 to m do

begin

for j:=1 to n do

write(a[i,j]:3);

writeln;

end;

writeln;

k:=1;

repeat

for i:=k to k do

for j:=1 to n do

begin

if (a[i,j]<min) then begin min:=a[i,j]; b[k]:=a[i,j]; end;

end;

inc(k);

min:=20;

until k>n;

for p:=1 to m do

if (b[p]>max) then max:=b[p];

writeln(max);

end.

Объяснение:

nastyaswan1405
nastyaswan1405
4,5(80 оценок)
Возможно в

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