Напечатать минимальный элемент столбца матрицы А, номер которого равен максимальному элементу одномерного массива В

@Ельжан · Регистрация: 24.06.2013

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

Заданы матрица А [4x8] и одномерный массив В [I:4] , заполненных случайным образом. Составить программу печати минимального элемента столбца матрицы А, номер которого равен максимальному элементу одномерного массива В.

@ermolay · 24.01.2014, 09:50

Pascal

const
  n=4;
var
  a: array[1..n,1..2*n] of integer;
  b: array[1..n] of integer;
  i, j, i_max, i_min: integer;
begin
  writeln('Ìàòðèöà:');
  for i:=1 to n do
  begin
    for j:=1 to 2*n do
    begin
      a[i,j]:=random(99)+1;
      write(a[i,j]:4);
    end;
    writeln;
  end;
  writeln('Ìàññèâ');
  i_max:=1;
  for i:=1 to n do
  begin
    b[i]:=random(99)+1;
    write(b[i]:4);
    if b[i]>b[i_max] then i_max:=i;
  end;
  writeln;
  writeln('Ìàêñèìàëüíûé ýëåìåíò ìàññèâà: b[',i_max,']=',b[i_max]);
  i_min:=1;
  for i:=1 to n do
    if a[i,i_max]<a[i_min,i_max] then i_min:=i;
  writeln('Ìèíèìàëüíûé ýëåìåíò ñòîëáöà ',i_max,': a[',i_min,',',i_max,']=',a[i_min,i_max]);
  readln;
end.

@Ельжан 0 / 0 / 0 Регистрация: 24.06.2013 Сообщений: 31
		1
	Напечатать минимальный элемент столбца матрицы А, номер которого равен максимальному элементу одномерного массива В 24.01.2014, 09:07. Показов 1218. Ответов 1 Метки нет (Все метки) Заданы матрица А [4x8] и одномерный массив В [I:4] , заполненных случайным образом. Составить программу печати минимального элемента столбца матрицы А, номер которого равен максимальному элементу одномерного массива В. 0

	24.01.2014, 09:50

Напечатать минимальный элемент столбца матрицы А, номер которого равен максимальному элементу одномерного массива В

Решение