Предмет: Информатика,
автор: xqrete
В массиве из 10 целых чисел заменить все элементы, меньшего среднего арифметического, на минимальный элемент, а все большие - на максимальный ( сделать в Делфи )
Ответы
Автор ответа:
0
Var
A:array[1..10] of integer;
min,max:integer;
R:real;
Begin
For var i:= 1 to 10 do
Begin
A[i]:=random(100)-50;
Write(A[i],' ');
R:=A[i];
End;
R:=R/10;
min:=A[1];
For var i:= 2 to 10 do
if A[i]<min then min:=A[i];
max:=A[1];
For var i:= 2 to 10 do
if A[i]>max then max:=A[i];
For var i:= 1 to 10 do
if A[i]<R then A[i]:=min
else if A[i]>R then A[i]:= max;
WriteLn;
For var i:= 1 to 10 do
Write(A[i],' ');
End.
A:array[1..10] of integer;
min,max:integer;
R:real;
Begin
For var i:= 1 to 10 do
Begin
A[i]:=random(100)-50;
Write(A[i],' ');
R:=A[i];
End;
R:=R/10;
min:=A[1];
For var i:= 2 to 10 do
if A[i]<min then min:=A[i];
max:=A[1];
For var i:= 2 to 10 do
if A[i]>max then max:=A[i];
For var i:= 1 to 10 do
if A[i]<R then A[i]:=min
else if A[i]>R then A[i]:= max;
WriteLn;
For var i:= 1 to 10 do
Write(A[i],' ');
End.
Похожие вопросы
Предмет: Английский язык,
автор: alechka82883
Предмет: Русский язык,
автор: giunelmamedova2008
Предмет: Английский язык,
автор: Sosichka
Предмет: Физика,
автор: Dianka3691
Предмет: Физика,
автор: еркебулан2