Саня007

program curs;
uses
Crt;
type new_type=record
el,count:longint
end;
var count,test,numb_test,i,j,x:longint;
q:boolean;
mas:array[1..2] of new_type;
begin
numb_test:=1;
while numb_test<=test do
begin
readln(count);
q:=true;
i:=1;
fillchar(mas,sizeof(mas),0);
while i<=count do
begin
readln(x);
if q then if (mas[1].el=0)or(mas[1].el=x)
then begin
mas[1].el:=x;
inc(mas[1].count)
end
else if (mas[2].el=0)or(mas[2].el=x)
then begin
mas[2].el:=x;
inc(mas[2].count)
end
else q:=false ;
inc(i)
end;
if q then writeln(1) else writeln(0);
inc(numb_test)
end;
readln;
end.

Миниатюры

   

Léon

Ну вот блок-схема:

Миниатюры

 

Саня007

Огромное спасибо!!