Const n=4; m=5; var a:array [1..n,1..m] of integer; i,j,min,imin,jmin:integer; begin Randomize; Writeln('Исходный массив:'); for i:=1 to n do begin for j:=1 to m do begin a[i,j]:=random(21)-10; write(a[i,j]:6); end; writeln; end; min:=a[1,1]; imin:=1;jmin:=1; for i:=1 to n do for j:=1 to m do if a[i,j]<min then begin min:=a[i,j]; imin:=i; jmin:=j; end; writeln('min=a[',imin,',',jmin,']=',min); end.
1. begin write(' '); var P:=ArrRandom(10,10,90).Println(' '); var T:=P.Select((x,k)->(k+1) mod 2=0?real(x*(k+1)):real(x/(k+1))).ToArray; for var i:=0 to T.Length-1 do write(T[i]:7:2); end.
2. begin var k:=ReadInteger('k = '); var a:=ArrRandom(10,-20,20).Println; var m:=a.Where(x->x<0).Max; writeln('Макс.отрицательное = ',m,', ',m,'*',k,'=',m*k); end.
Радиус 7
Объяснение: