Question

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

Answer 1

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.