СРОЧНО!!! Решить в Pascal 1) Найти максимальный элемент массива, который больше 150. Известно, что значения элементов массива положительны и не превосходят 200. 2) Среднестатистическим назовем элемент массива, если для него мо...
СРОЧНО!!! Решить в Pascal
1) Найти максимальный элемент массива, который больше 150. Известно, что значения элементов массива положительны и не превосходят 200.
2) Среднестатистическим назовем
элемент массива, если для него модуль разности его значения и среднего арифметического элементов массива достигает минимума. Найти среднестатистический элемент массива.
Заранее большое спасибо)
Гость
Ответ(ы) на вопрос:
Гость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) -
Не нашли ответ?
Похожие вопросы