Решить в pascal 1) найти максимальный элемент массива, - вопрос №44037781150 от Ronnigun029 17.12.2020 18:30

Question

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

Ronnigun029 · Answer

1)var a: array[1..200] of integer;i,max:integer;beginfor 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) -...