Var
a:array [1..10] of real;
ran:real;
i:integer;
begin
for i:= 1 to 10 do
begin
ran:=100-random(200)+1;
a[i]:= ran;
if a[i]< 0
then begin
write(a[i],' ');
writeln(i);
end;
end;
end.<span>
</span>
Я не знаю конкретно что вы используете как условные обозначения (я взял TRUE and FALSE) у вас же могут быть как вариант (1 и 0).
1 это TRUE
0 это FALSE
8 ж 9б 10 в 11 г 12 а 13 б 14 а 15 а 16а
Автозаполнение порядкового номера,автозаполнение формул