Размещено 4 года назад по предмету
Информатика
от qwicklyy
будет работать?
const N = 10; var arr: array[1..N] of integer; min,k,i,max: byte; begin randomize; max := 1; min :=1; for i:=1 to N do begin arr[i] := random(100); write(arr[i], ' '); if arr[max] < arr[i] then max := i;
end; If arr[min] >arr[k] then Begin min:=k; end; writeln; writeln('arr[',max,'] = ',arr[max]); writeln('arr[',min,']=',[min]); end.