На блок-схеме представлен алгоритм одновременного поиска максимального и минимального значений элементов массива

5. На блок-схеме представлен алгоритм одновременного поиска максимального и минимального значений элементов массива:

Реализуйте этот алгоритм на языке программирования и выполните программу для массива из задания 6.

uses crt;

const n=10;

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

i,imin,imax: byte;

begin

imax:=1; imin:=1;

for i:=1 to n do

begin

a[i]:=random(199)-99;

write(a[i]:4);

if a[i]>a[imax] then imax:=i;

if a[i]<a[imin] then imin:=i;

end;

writeln;

writeln(‘Максимальный элемент=’,a[imax],’ под номером ‘,imax);

writeln(‘Минимальный элемент=’,a[imin],’ под номером ‘,imin);

end.