Решить в pascal 1) найти максимальный элемент массива, который больше 150. известно, что значения элементов массива положительны и не превосходят 200. 2) среднестатистическим назовем элемент массива, если для него модуль разности его значения и среднего арифметического элементов массива достигает минимума. найти среднестатистический элемент массива. заранее большое )
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) -