Bạn xem lý thuyết bài: https://vndoc.com/tin-hoc-lop-3-bai-3-may-tinh-nhung-nguoi-ban-moi-ctst-277492
Bạn tham khảo lý thuyết bài: https://vndoc.com/tin-hoc-6-bai-5-internet-ket-noi-tri-thuc-240466
Bạn xem kiến thức bài: https://vndoc.com/giai-bai-tap-tin-hoc-5-thu-tuc-trong-logo-tiep-184544
Câu 59:
uses crt;
var n:longint;
begin
clrscr;
write('nhap N');
readln(n);
if n mod 2 = 0 then
write('so chan')
readln;
end.
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.