СРОЧНО!!! Решить в Pascal 1) Найти максимальный элемент массива, который больше 150....

Question

СРОЧНО!!! Решить в Pascal
1) Найти максимальный элемент массива, который больше 150. Известно, что значения элементов массива положительны и не превосходят 200.
2) Среднестатистическим назовем
элемент массива, если для него модуль разности его значения и среднего арифметического элементов массива достигает минимума. Найти среднестатистический элемент массива.
Заранее большое спасибо)

Answer 1

1)
var a: array[1..200] of integer;
i,max:integer;
begin
for i:=1 to 200 do begin a[i]:=random(200); write(a[i]:4);end;
max:=150;
for i:=1 to 200 doif a[i]>max then max:=a[i];writeln; writeln('max=',max);
end.
2) -