1. Найти минимальный и максимальный массив из 10 элементов.…

Program num1; Uses crt; Var x: array [1… 10] of real; i: integer; min, max: real; Begin clrscr; for i: =1 to 10 do begin write ('x[',i,']='); readln (x[i]) end; min: =x[1]; max: =x[1]; for i: =1 to 10 do begin if x[i]>max then max: =x[i]; if x[i] комментировать