Можете дать аж полночью от начала и до конца чтоб я мог скопировать и вставить просто дам 400 Поинтов сверху

:

program v;

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

i,max,min:integer;

begin

max:=-10000;

min:=10000;

for i:=1 to 8 do

begin

write('a[',i,'] = ');

readln(a[i]);

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

if a[i]<min then min:=a[i]

end;

writeln('max = ',max);

write('min = ',min)

end.