Y := (abs(1-y)+1)/sqrt(x*x+2)
Const nx=30; mx=30;var r:array[1..nx,1..mx] of integer;i,j,n,m,k,min:integer;
beginrandomize;write('Введите n и m: ');readln(n, m);
writeln('Исходная матрица: ');for i:=1 to n dobeginfor j:=1 to m dobeginr[i,j]:=random(78)-17;write(r[i,j]:4);end;writeln;end;min:=100;for i:=1 to n do beginfor j:=1 to m do beginif min > r[i,j] then beginmin := r[i,j];k:=j;end;end;write(' min =':8,min:4,' k= ',k:3);writeln; min:=100;k:=0;end;end.
<span>2 изображений, выводимых на экран цветного дисплея.</span>
<em>// PascalABC.NET 3.3, сборка 1611 от 06.01.2018</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=ArrRandom(ReadInteger('n='),-50,50); a.Println;
var imin:=a.IndexMin;
Writeln('Номер минимального элемента: ',imin+1,
', значение: ',a[imin])
end.
<u>Пример</u>
n= 17
-20 -14 27 33 -34 -25 -47 33 -46 -5 -36 -3 30 -27 -45 46 41
Номер минимального элемента: 7, значение: -47