Дан двумерный массив найти номер строки содержащий минимальное число

@virk · Регистрация: 01.10.2017

Kodzaev · 26.04.2013, 18:06

Pascal

Const
  n=10;
Var
  x: Array [1..n,1..n] of Integer;
  min,imin: Integer;
  i,j: Byte;
BEGIN
min:=MaxInt;
For i:=1 to n do
begin
  For j:=1 to n do
  begin
    x[i,j]:=Random(100);
    If x[i,j]<min Then
    begin
      min:=x[i,j];
      imin:=i;
    end;
    Write(x[i,j]:3);
  end;
  Writeln
end;
Writeln('MIN= ',min);
Writeln('Номер строки, содержащей мин. число: ',imin);
Readln
END.

@virk 0 / 0 / 0 Регистрация: 01.10.2017 Сообщений: 2
		1
	Дан двумерный массив найти номер строки содержащий минимальное число 26.04.2013, 16:32. Показов 1203. Ответов 1 Метки нет (Все метки) Дан двумерный массив найти номер строки содержащий минимальное число 0

Опции темы

Дан двумерный массив найти номер строки содержащий минимальное число

Решение