viết chương trình nhập vào 1 mảng gồm n phần tử
a, Đếm các số chẵn chia hết cho 3 trong mảng
b, Tính tổng các số âm chia hết cho 7 trong mảng
viết chương trình nhập vào 1 mảng gồm n phần tử
a, Đếm các số chẵn chia hết cho 3 trong mảng
b, Tính tổng các số âm chia hết cho 7 trong mảng
program abc;
uses crt;
var
e: array[1..100] of real;
d;n;a;i: integer;
begin
a:=0;
writeln(‘Nhap n: ‘); readln(n);
for i:=1 to n do;
begin
writeln(‘Nhap so thu’,i); readln( e[i] );
end;
for i:=1 to n do;
begin
if e[i] mod 6=0 then a:=a+1;
end;
for i:=1 to n do;
begin
if e[i] <0 and e[i] mod 7=0 then d:=d+e[i]
writeln(‘cac so chan chia het cho 3la: ‘,a);
writeln(‘tong cac so am chia het cho 7 la ‘,d)
readln;
end.
uses crt;
var a:array[1..1000000] of longint;
n,i,d,s:longint;
begin
clrscr;
write(‘Nhap so luong phan tu: ‘); readln(n);
for i:=1 to n do
begin
write(‘Nhap gia tri phan tu thu ‘,i,’: ‘); readln(a[i]);
if (a[i] mod 6=0) then inc(d);
if (a[i]<0) and (a[i] mod 7=0) then inc(s,a[i]);
end;
writeln(‘Co ‘,d,’ phan tu la so chan va chia het cho 3′);
writeln(‘Tong cac so am chia het cho 7: ‘,s);
readln;
end.