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

Ответы 1

uses crt;const n=10;var a:array[1..n] of integer;i,max,min:integer;sr:real;beginrandomize;max:=0;min:=50;for i:=1 to n dobegina[i]:=random(50);writeln(a[i]);end;writeln;for i:=1 to n dobeginif 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 dobeginif a[i]<sr then a[i]:=min;if a[i]>sr then a[i]:=max;end;for i:=1 to n dowriteln(a[i]);end.
- Автор:
  emmackc1
- 2 года назад
- 5
Добавить свой ответ

Еще вопросы