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

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

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.