Вопрос по информатике:
Задан одномерный массив Z(N) (N<=80). Все элементы, меньшие среднего арифметического наибольшего и наименьшего элементов массива, заменить на наименьший элемент, а большие среднего арифметического – на наибольший элемент массива.
- 27.12.2015 16:14
- Информатика
- remove_red_eye 15285
- thumb_up 46
Ответы и объяснения 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]
end;
sr:=(max+min)/2;
for i:=1 to n do
begin
if a[i]
end;
for i:=1 to n do
writeln(a[i]);
end.
- 28.12.2015 21:13
- thumb_up 5
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.