• В массиве из 10 целых чисел заменить все элементы, меньшего среднего арифметического, на минимальный элемент, а все большие - на максимальный ( сделать в Делфи )

Ответы 1

  • VarA:array[1..10] of integer;min,max:integer;R:real;BeginFor 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.
    • Автор:

      nike10
    • 5 лет назад
    • 0
  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years