Question

Se citeste o secventa de numere naturale. Sa se afiseze numarul de aparitii al fiecarui numar din secventa

Answer 1

Care poate fii cel mai mare număr din secventa?

Answer 2

var a:array of integer;
i,b:byte;
n,c:integer;

begin
write('Marimea sirului: ');
read(n);
setlength(a,n);
writeln;
writeln('Sirul:');
for i:=0 to n-1 do read(a[i]);
writeln;
for c:=0 to 9999 do begin
b:=0;
for i:=0 to n-1 do if c=a[i] then inc(b);
if b<>0 then if b>1 then writeln('Numarul ',c,' scris de ',b,' ori') else
writeln('Numarul ',c,' scris o data'); 
end;
end.