Заполнить одномерный массив из 40 элементов в интервале от -80 до 55. Найти max и min…

Var a: array[1… 40]of integer; i: byte; b,c,min,max: integer; beginfor i: =1 to 40 do a[i]: =-80+random (55); min: =a[1]; max: =a[2]; for i: =1 to 40 do beginif a[i]max then beginmax: =a[i]; c: =max; end; end; writeln ('максимальный эл.=', c); writeln ('минимальный эл.=', b); end.