Const N = 10;Const M = 10;Var A:Array [1..N, 1..M] Of Integer; i, j, imax, jmax, imin, jmin, temp:Integer; Begin randomize; For i := 1 to N do Begin For j := 1 to M do Begin A[i, j] := random(1000); End; End; imin := 1; imax := 1; jmin := 1; jmax := 1; For i := 1 to N do Begin For j := 1 to M do Begin If A[i, j] > A[imax, jmax] then Begin imax := i; jmax := j; End; If A[i, j] < A[imin, jmin] then Begin imin := i; jmin := j; End; End; End; writeln('first elem: ', A[imax, jmax], ', second elem: ', A[imin, jmin]); temp := A[imin, jmin]; A[imin, jmin] := A[imax, jmax]; A[imax, jmax] := temp; writeln('first elem: ', A[imax, jmax], ', second elem: ', A[imin, jmin]);End.
Водка. Напиток состоящий из воды и максимально очищенного от примесей этилового спирта, который составляет по объёму от 35 % до 70 %. Русская же водка содержит 40 % этилового спирта. Существует версия, что первую водку изготовил арабский врач Парес в 860 году,которая использовалась в якобы медицинских целях, а вот в Европе первая перегонка этого напитка была сделана итальянским монахом-алхимиком Валентиусом.
Var y,x:real; i:integer; Begin For i := 1 to 10 do Begin x:=i; y:=(3*sqr(x)-sqrt(x+1))/(2-x); writeln('X',i,' = ',x,', Y',i,' = ',y); End; <span>End.</span>