*zadanie 1;

data ankieta;
array pyt(10) $;
format pyt1-pyt10 $3.;
do i=1 to 10;
do j=1 to 10;
x=3*ranuni(0);
pyt(j)=byte(65+floor(x));
end;
output;
end;
drop i j x;
run;

data zad1a;
A=0;
B=0;
C=0;
set ankieta;
array pyt(*) _character_;
do i=1 to dim(pyt);
if pyt(i)='A' then A+1;
if pyt(i)='B' then B+1;
if pyt(i)='C' then C+1;
end;
keep A B C;
run;

data zad1b;
set ankieta end=k;
array pyt(*) _character_;
do i=1 to dim(pyt);
if pyt(i)='A' then A+1;
if pyt(i)='B' then B+1;
if pyt(i)='C' then C+1;
end;
if k then output;
keep A B C;
run;

data zad1c;

set ankieta end=k;
array p1(*) _character_;
array p2(10,10) $ _temporary_ ;
do i=1 to 10;
p2(_N_,i)=p1(i);
end;
if k then do;
do j=1 to 10;
do l=1 to 10;
select;
when (p2(l,j)='A')  A+1;
when (p2(l,j)='B')  B+1;
otherwise C+1;
end;
end;
output;
A=0;
B=0;
C=0;
end;
end;
keep A B C;
run;