Nhập vào mảng có giá trị cao nhất là 100 ,a có bao nhiêu số chia hết cho 3, b xuất ngược ra màn hình
Nhập vào mảng có giá trị cao nhất là 100 ,a có bao nhiêu số chia hết cho 3, b xuất ngược ra màn hình
By Piper
By Piper
Nhập vào mảng có giá trị cao nhất là 100 ,a có bao nhiêu số chia hết cho 3, b xuất ngược ra màn hình
var a:array[1..100] of integer;
i, d, n: byte;
Begin
Write(‘n = ‘); readln(n); d:=0;
For i:=1 to n do
Begin
Write(‘a[‘, i, ‘] = ‘); readln(a[i]);
If a[i] mod 3=0 then inc(d);
End;
Writeln(‘co ‘, d, ‘ so chia het cho 3’);
Writeln(‘xuat nguoc mang: ‘);
For i:=n downto 1 do write(a[i], ‘ ‘);
Readln
End.
program bai_giai;
uses crt;
var A:array[1..100] of integer;
n,i,d:byte;
begin
clrscr;
write(‘Nhap so luong phan tu: ‘); readln(n);
d:=0;
for i:=1 to n do
begin
write(‘Nhap so thu ‘,i,’: ‘); readln(A[i]);
if A[i] mod 3=0 then d:=d+1;
end;
writeln(‘a. Co ‘,d,’ so chia het cho 3′);
write(‘Day nguoc la: ‘);
for i:=1 to n do write(A[i],’ ‘);
readln;
end.