Nhập mảng A gồm N phần tử ( N <= 10). Đếm và tính tổng các số chẵn số lẻ số chia hết cho 2 và 3 trong mảng. Đưa kết quả ra màn hình
Nhập mảng A gồm N phần tử ( N <= 10). Đếm và tính tổng các số chẵn số lẻ số chia hết cho 2 và 3 trong mảng. Đưa kết quả ra màn hình
program ct;
uses crt;
var A:array[1..1000] of integer;
i,n,d1,d2,d3:integer;
S1,S2,S3:longint;
begin clrscr;
write(‘Nhap so phan tu: ‘); readln(n);
for i:=1 to n do
begin
writeln(‘Nhap phan tu thu ‘,i,’: ‘); readln(A[i]);
end;
S1:=0; S2:=0; S3:=0;
for i:=1 to n do
begin
if A[i] mod 2=0 then
begin
inc(d1);
S1:=S1+A[i];
end;
if A[i] mod 2=1 then
begin
inc(d2);
S2:=S2+A[i];
end;
if (A[i] mod 2=0) and (A[i] mod 3=0) then
begin
inc(d3);
S3:=S3+A[i];
end;
end;
writeln(‘Co ‘,d1,’ so chan. Tong la: ‘,S1);
writeln(‘Co ‘,d2,’ so le. Tong la: ‘,S2);
writeln(‘Co ‘,d3,’ so chia het cho 2 va 3. Tong la: ‘,S3);
readln;
end.
Học tốt!
Uses Crt;
Var i, n, Sle, Schan: integer;
a: array [1..100] of integer;
BEGIN
Clrscr;
Schan:=0;
Sle:=0;
Write(‘Nhap 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 2 = 0) Then Schan:=Schan+a[i];
For i:=1 to n do
If (a[i] mod 3 = 0) Then Sle:=Sle+a[i];
Write(‘Tong cac so chan chia het cho 2= ‘,Schan);
Writeln;
Write(‘Tong cac so le chia het cho 2= ‘,Sle);
Readln;
END.