Цитата:
Сообщение от ter12
2. Найти наименьший из положительных элементов массива Х[1..10].
|
Код:
var
x:array [1..10] of integer;
i,min:integer;
begin
randomize;
min:=10000;
for i:=1 to 10 do begin
x[i]:=random(31)-30;
if (x[i]<=0) and (x[i]<min) then min:=x[i];
end;
writeln ('Минимальный из положительных элементов равен ',min);
readln
end.