В одномерном целочисленном массиве определить среднее арифмитическое максимального и минимального чисел
В одномерном целочисленном массиве определить среднее арифмитическое максимального и минимального чисел
Гость
Ответ(ы) на вопрос:
Гостьprogram massiv;
var i,n,max,sr,min:longint;
a:array[1..1000]of longint;
begin
read(n);
for i:=1 to n do
read(a[i]);
max:=-999999;
min:=999999;
for i:=1 to n do
begin
if a[i]>max then max:=a[i];
if a[i]
Не нашли ответ?
Похожие вопросы