viết chương trình nhập vào 1 số nguyên dương(>=250) và dãy số gồm N số nguyên từ A1…An. hiển thị mảng trên và đếm tổng các số chia hết cho 3
viết chương trình nhập vào 1 số nguyên dương(>=250) và dãy số gồm N số nguyên từ A1…An. hiển thị mảng trên và đếm tổng các số chia hết cho 3
Program Hotboy;
Uses crt;
Var A:array[1..100] of integer;
I,n : byte;
S:real;
Begin
Clrscr ;
S:=0;
Repeat
Write(‘nhao so phan tu trong day’); readln(n);
Until n>=250;
For i:=1 do n do
Begin
Write(‘A[‘,i,’]’); readln(A[i]);
End;
For i:=1 to n do
If A[i] mod 3 =0 then
S:=S+A[i] ;
Writeln(‘Tong cac phan tu chia het cho 3 trong mang la’,S);
Readln
End.
program T;
uses crt;
var i,N,tong:integer;
a:array [1..1000000] of integer;
begin
clrscr;
write(‘Nhap N>=250: ‘);readln(N)
while N<=250 then
begin
write(‘Nhap lai: ‘);readln(N)
end;
writeln(‘Nhap ‘,N,’ so nguyen: ‘);
for i: = 1 to N do
begin
write(‘a[‘,i,’] : ‘);readln(a[i])
end;
tong:=0;
for i:= 1 to N do
begin
write(a[i],’ ‘);
if a[i] mod 3 = 0 then tong:=tong+1
end;
writeln;
writeln(‘Tong cac so chia het cho 3 la: ‘,tong);
readln;
end.