Question

Задан одномерный массив Z(N) (N<=80). Все элементы, меньшие среднего арифметического наибольшего и наименьшего элементов массива, заменить на наименьший элемент, а большие среднего арифметического – на наибольший элемент массива.

Answer 1

uses crt;
const n=10;
var a:array[1..n] of integer;
i,max,min:integer;
sr:real;
begin
randomize;
max:=0;
min:=50;
for i:=1 to n do
begin
a[i]:=random(50);
writeln(a[i]);
end;
writeln;
for i:=1 to n do
begin
if a[i]<min then min:=a[i];
if a[i]>max then max:=a[i];
end;
sr:=(max+min)/2;
for i:=1 to n do
begin
if a[i]<sr then a[i]:=min;
if a[i]>sr then a[i]:=max;
end;
for i:=1 to n do
writeln(a[i]);
end.