Паскаль

1-Дано: массив целых чисел А[N]. Проверьте, есть ли в нем элементы равные нулю. Если есть, то найдите номер первого из них, те наименьшее i, при котором А[i]=0, иначе выведите сообщение.

2 - Из заданной строки выбрать и напечатать все слова начинающиеся с буквы "А".

1)

program gt;

var a:rray[1 ... 10000]of integer;

n, i, q, l:integer;

begin

read (n);

q:=0;

for i:=1 to n do

begin

read (a[i]);

if (a[i]=0) then begin

q:=q+1;

if (q=1) then l:=i;

end;

end;

if (q>1) then writeln (l) esle writeln ('false');

end;

2)

program gt;

var s, a:string;

b:array[1 ... 100]of string;

l, i, k:integer;

begin

readln (a);

l:=length (a);

k:=0;

for i:=1 to l do

begin

if (a[i]=' ') then begin

k:=k+1;

b[k]:=s;

s:='';

end;

if (a[i]' ') then s:=s+a[i];

end;

for i:=1 to k do

begin

if (b[i][1]='a') then writeln (b[i]);

end;

end.