Viết chương trình pascal nhập vào n phần tử của dãy số in ra màn hình

Program uv;

Uses Crt;

Var n,i,max: longint;

a,b: array [1..1000000] of integer;

begin

clrscr;

write('Nhap so phan tu: '); readln(n);

max:= 0;

For i:= 1 to n do

begin

write('a[',i,']: ');

readln(a[i]);

inc( b[a[i]] );

If a[i] > max then max:= a[i];

end;

For i:= 1 to n do

If b[i] <> 0 then writeln('So: ',i,' so luong: ',b[i]);

readln;

end.

help meeeeeee

Bạn xem kiến thức bài: https://vndoc.com/ngon-ngu-lap-trinh-pascal-ebook-10047