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

Question

Информатика

Деена

1 ноября, 09:44

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

+2

Ответы (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.