Паскаль

+ 0 -

Дахутка

14 марта 2014 г., 19:23:06 (10 лет назад)

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.