Question

В массиве B1, B2, ... Bn найти первое положительное число и напечатать его номер. Язык програмирования ПАСКАЛЬ

Answer 1

Program chislo;
var B=array[1..n] of integer;
var k, i: integer;
begin
k:=0;
read(n);
for i:=1 to n do
B[i]=-1000 random(1000);
for i:=1 to n do
k:=k+1;
if (B[i]>0)
then write(k);
end.

Answer 2

Var b:array[1..1000]of longint; i,n:longint; begin readln(n); for I:=1 to n do. readln(b[I]); for I:=1 to n do if b[I]>0 then begin writeln(I);break;end; end.