Найти максимальный и минимальный элемент массива, поменять местами строки в которых находится максимальный и минимальный элементы.если максимальный и минимальный элементы находятся в одной строке, то поменять местами столбцы в которых находятся максимальный и минимальный элементы.массив заполняется рандомно от -100 до 100

ответ:

const nmax=100;

var a: array[1..nmax] of integer;

    n,i,imn,imx,x: integer;

begin

readln (n);

for i: =1 to n do read(a[i]); readln;

imn: =1;

imx: =1;

for i: =1 to n do

if a[i]

else if a[i]> a[imx] then imx: =i;

x: =a[imn]; a[imn]: =a[imx]; a[imx]: =x;

for i: =1 to n do write (a[i], ' ');  

writeln;

readln;

end.

объяснение:

Var   v: array[1..10]of integer; f: real; i: byte; a,b,c,d,min,k: integer; begin for i: =1 to 10 do  v[i]: =random(20)-10; readln(d); min: =v[1]; b: =0; for i: =1 to 10 do begin if v[i]< 0 then begin b: =b+1; end; if v[i]> min then a: =min; end; k: =0; for i: =1 to 10 do begin if v[i]< d then k: =k+1; end; c: =k; writeln('наименьший элемент =', a); writeln('количество отрицательных элементов =', b); writeln('количество элементов меньших d =', c); f: =c+(a+b)/(a*b+1); writeln(f); end.

Толстый вася одинок, виноват его жирок, что поделать он не знает, дальше пищу поглощает, а худой парнишка витя, и доволен и счастлив, да и в теле полно сил, и живёт не унывая, только с васи угорая, что он жирный нищеброд, да и вовсе блин урод. в жизни жрать он только любит, и его сея любовь в скором времени погубит острой язвою такой. только вася не расстроен, не печален, не угрюм, ведь когда начнутся боль будет он жевать изюм. морали в данных строках нету,  смысла тоже не ищи,есть лишь правда, спору нету, в общем вася не греши.