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

Question

Информатика

Лаврента

23 сентября, 02:19

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

+1

Ответы (1)

Знаете ответ на вопрос?

Ревмира · 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]
if a[i]>max then max:=a[i];

end;

sr: = (max+min) / 2;

for i:=1 to n do

begin

if a[i]
if a[i]>sr then a[i]:=max;

end;

for i:=1 to n do

writeln (a[i]) ;

end.