Program XXX;
var i, n, k : integer;
b : array [1..100] of real;
begin
write ('введите n=');
readln(n);
write ('введите массив b :');
for i:=1 to n do
read(b[i]);
k:=0;
i:=1;
while (i<=n) and (k=0) do<br> if b[i]>0 then k:=i else i:=i+1;
if k=0 then write('положительных элементов - нет')
else write('номер первого положительного элемента-', k )
end.