Найти минимальный элемент в каждом столбце и записать данные в новый массив

@Alyamov · Регистрация: 11.12.2017

Author24 — интернет-сервис помощи студентам

Найти минимальный элемент в каждом столбце и записать данные в новый массив.

@Tnoktkm · 19.12.2017, 14:02

Пойдет?

Pascal

program mixhelp;
 
var
  i,j,chtd :integer;
  ar:array[1..10,1..10] of integer;
  ar2:array[1..10] of integer;
  
begin
randomize;
chtd:=1489;
 
for i:=1 to 10 do
  for j:=1 to 10 do
    ar[i,j]:=Random(1488);   {Заполнение массива}
 
for i:=1 to 10 do
 begin
  for j:=1 to 10 do
    begin
     if chtd>ar[i,j] then    {Проверка на минимальность}
      chtd:=ar[i,j];      
    end;
  ar2[i]:=chtd;
  chtd:=1489;   {Востановление переменной}
 end;
 
 for j:=1 to 10 do
 begin
  for i:=1 to 10 do   
    write(ar[i,j],' ');
    writeln();
 end;
 
 writeln();
 writeln(ar2);
end.

@Alyamov 0 / 0 / 0 Регистрация: 11.12.2017 Сообщений: 4
		1
	Найти минимальный элемент в каждом столбце и записать данные в новый массив 19.12.2017, 13:29. Показов 1867. Ответов 1 Метки нет (Все метки) Найти минимальный элемент в каждом столбце и записать данные в новый массив. 0

	19.12.2017, 14:02

Найти минимальный элемент в каждом столбце и записать данные в новый массив

Решение