viết chương trình nhập vào 1 số nguyên x (n>0). Tính trung bình cộng các số chẵn. In ra các số vừa chia hết cho 3 và 5.
viết chương trình nhập vào 1 số nguyên x (n>0). Tính trung bình cộng các số chẵn. In ra các số vừa chia hết cho 3 và 5.
By Margaret
program phuongt;
uses crt;
var x: array[1..500] of integer;
n, i: integer;
tb: real;
begin
clrscr;
write(‘Nhap n = ‘); readln(n);
for i:=1 to n do
begin
write(x’,i,’ = ‘); readln(x[i]);
end;
tb:=0;
for i:=1 to n do
begin
if x[i] mod 2 = 0 then tb:=tb+x[i];
end;
writeln(‘Trung binh cong: ‘, tb/n);
write(‘Cac so vua chia het cho 3 va 5: ‘);
for i:=1 to n do
begin
if (x[i] mod 3 = 0) and (x[i] mod 5 = 0) then write(x[i]);
end;
readln
end.
uses crt;
Var
n,i,dem,TC:longint; A:array[0..1000] of longint;
Begin
clrscr;
Repeat
Readln(n);
until n>0; for i:=1 to n do readln(A[i]);
Dem:=0; TC:=0;
For i:=1 to n do if A[i] mod 2=0 then
Begin
TC:=TC+A[i]; dem:=dem+1;
End;
writeln(‘Trung binh cong so chan: ‘,TC/dem:2:1);
write(‘Cac so vua chia het cho 3 vua chia het cho 5: ‘);
For i:=1 to n do if (A[i] mod 3=0) and (A[i] mod 5=0) then write(i,’ ‘);
Readln;
End.