Одновимірний масив Х(12) елементів дійсних
чисел. Знайти найбільший додатний елемент і найменший від’ємний елементи масиву.

Program qwe;Uses crt;var x:array[1..12] of real;i:integer;min,max:real;beginclrscr;Writeln('Введите елементы масыву');for i:=1 to 12 dobeginReadln(x[i]);end;max:=x[1];min:=x[1];For i:=1 to 12 dobeginif max<x[i] then max:=x[i];if min>x[i] then min:=x[i];end;Writeln('Max: ',max:2:2);Writeln('Min: ',min:2:2);readkey;end.