Найти наименьшее число матрицы и удалить строку в котором оно находится

@Мasy · Регистрация: 07.10.2013

Помогите)))
Заданная матрица 4 на 5. Найти наименьшее число матрицы и удалить строку в котором оно находится

@ermolay · 24.10.2013, 09:48

Pascal

const
  nmax=5;
var
  a: array[1..nmax,1..nmax] of integer;
  n,m,i,j,imin,jmin: byte;
begin
  n:=4; m:=5;
  imin:=1; jmin:=1;
  writeln('Èñõîäíûé ìàññèâ:');
  for i:=1 to n do
  begin
    for j:=1 to m do
    begin
      a[i,j]:=random(199)-99;
      write(a[i,j]:4);
      if a[i,j]<a[imin,jmin] then begin
        imin:=i; jmin:=j;
      end;
    end;
    writeln;
  end;
  writeln('Min = a[',imin,',',jmin,'] = ',a[imin,jmin]);
  for i:=imin to n do
    for j:=1 to m do
      a[i,j]:=a[i+1,j];
  dec(n);
  writeln('Ïðåîáðàçîâàííûé ìàññèâ:');
  for i:=1 to n do
  begin
    for j:=1 to m do
      write(a[i,j]:4);
    writeln;
  end;
  writeln;
end.

@Мasy 0 / 0 / 0 Регистрация: 07.10.2013 Сообщений: 58
		1
	Найти наименьшее число матрицы и удалить строку в котором оно находится 23.10.2013, 22:20. Просмотров 1664. Ответов 1 Метки нет (Все метки) Помогите))) Заданная матрица 4 на 5. Найти наименьшее число матрицы и удалить строку в котором оно находится 0

Опции темы

Найти наименьшее число матрицы и удалить строку в котором оно находится

Решение