Массивы

var a:array[1..100] of shortint; b,c:byte;
begin
write('>Type the size of array:'); readln(b);
writeln('>Type elements.');
for c:=1 to b do read(a[c]);
readln;
while (a[b]<=0)and(b>1) do b:=b-1;
if a[b]>0 then writeln('>Last positive number: value=',a[b],', position=',b) else writeln('>no positive in this array');
end.

uses crt;
type mas=array[1..10] of integer;
var i,n:integer;
    a:mas;
begin
clrscr;
 for i:=1 to 10 do
                begin
                  write('a[',i,']= ');
                  readln(a[i]);
                  writeln;
                end;
n:=0;
for i:=1 to 10 do
               begin
                 if a[i]>0 then if i>n then n:=i;
               end;
 
writeln;
if n=0 then writeln('v massive net pologitelnix elementov :(')
else write('posledniy pologitelniy element= ',a[n],' ego nemer= ',n);
readln;
end.

for i:=n downto 1 do
 if a[i]>0 then
 begin
   zn:=a[i];
   in:=i;
   break;
 end;