Задание:
ПОМОГИТЕ РЕШИТЬ! ЗАВТРА СДАВАТЬ. Дан массив А (15). Заполните его случайными числами из диапазона -27 до 34. Максимальный и минимальный элементыпоменяйте местами.
Решение:
Program z1; Uses CRT; Var a: array [1… 15] of integer; i,max,min,c: integer; Begin Clrscr; randomize; For i: =1 to 15 do Begin a[i]: =-27+random (61); write (a[i]: 4); End; {ищем максимум} Max: =a[1]; For i: =1 to 15 do If a[i]>max then max: =a[i]; {ищем минимум} Min: =a[1]; For i: =2 to 15 do If min Знаете другой ответ?