Безотлагательно!!! Решить в Pascal1) Отыскать наибольший элемент массива, который больше 150.

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

Задать свой вопрос
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]gt;max then max:=a[i];writeln; writeln('max=',max);
end.
2) -
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт