Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.
Bài 2:
Program HOC24;
var a: array[1..200] of integer;
i,d,n: integer;
begin
write('Nhap so phan tu N: '); readln(N);
for i:=1 to n do
begin
write('a[',i,']='); readln(a[i]);
end;
for i:=1 to n do if a[i] mod 3=0 then d:=d+1;
write('Co ',d,' phan tu chia het cho 3');
readln
end.
Bài 3:
Program HOC24;
var a: array[1..30] of integer;
i,d,n: integer;
begin
write('Nhap so phan tu N: '); readln(N);
for i:=1 to n do
begin
write('a[',i,']='); readln(a[i]);
end;
d:=1;
for i:=1 to n do if a[i] mod 2=0 then d:=d*a[i];
write(Tich cac phan tu chia het cho 2 la: ',d);
readln
end.
uses crt;
var a,b,c,d,tb:real;
begin
clrscr;
write('Nhap diem cua ban:'); readln(a,b,c,d);
tb:=(a+b+c+d)/7;
if tb>=8 then writeln('Gioi');
if (6,5<=tb) and (tb<8) then writeln('Kha');
if (5<=tb) and (tb<6,5) then writeln('Trung Binh');
if tb<5 then writeln('Yeu');
readln;
end.
Bài 10:
uses crt;
var a,b:array[1..10000]of longint;
i,n,dem,j,dem1:longint;
kt:boolean;
begin
clrscr;
readln(n);
for i:=1 to n do readln(a[i]);
dem:=0;
b[1]:=a[1];
for i:=1 to n do
begin
kt:=true;
for j:=1 to dem do
if b[j]=a[i] then kt:=false;
if kt=true then
begin
dem:=dem+1;
b[dem]:=a[i];
end;
end;
writeln(dem);
for i:=1 to dem do
begin
dem1:=0;
for j:=1 to n do
if b[i]=a[j] then dem1:=dem1+1;
writeln(b[i],' xuat hien ',dem1,' lan');
end;
readln;
end.
mình cảm ơn nhiều ạ