помогите быстрее составить .массиве А(20),заполненном случайными числами в диапазоне (-50:+50) поменять местами наибольше элемент с наименьшим.Распечатать полученный

1

Ответы и объяснения

2014-03-21T20:38:13+04:00
Массив создан и заполнен
MIN=50
MAX=-50
FOR I = 1 TO 20
IF A(I)>MAX THEN
MAX = A(I)
MAXI=I
END IF
NEXT I
FOR I = 1 TO 20
IF A(I)<MIN THEN
MIN = A(I)
MINI=I
END IF
NEXT I
C=MINI
MINI=MAXI
MAXI=C
FOR I = 1 TO 20
PRINT A(I),
NEXT I