Question

Viết chương trình nhập mảng 1 chiều gồm N số nguyên (N được nhập từ bàn phím <=250). Tính và in ra màn hình Tổng của cá phần tử chia hết cho 3 có trong mảng vừa nhập.

Answer 1

bprogram min 

uses crt 

var A: array [1...250] of integer

tong :integer;

begin 

tong:=0

writeln(‘nhap n:’); readln (n) 

forr i:=1 to n do 

begin 

writeln (‘nhap phan tu thu ‘,i);

readln (A[i] );

end

for i:=1 to n do 

begin

if (A[i] mod 3=0) 

then tong:=tong +A[i];

end

writeln (Tong cac phan tu chia het cho 3) 

readln ;

end

Answer 2

Answer 3

Program Vidu;
Uses crt;
Type Mang1C = array[1..250] of Integer; 
Var A:Mang1C;
i:integer;
Begin
        clrscr;
        Writeln
        For i:=1 to 250 do 
        Begin
                Write
                Readln
        End;
        Write
        For i:=1 to 250 do
                Write
        Readln;
End.

Answer 4

Uses crt ;

Var a : aray [1...250] of integer; 

i, n ,dem , t: teger ;

begin 

clrscr ;

write(' nhap n=') ; readln (n);

For i := 1 to n do

begin 

write ('a[' ,i, '); readln(a[i];

end;

 

 

 

Answer 5

uses crt;

var a:array[1..250]of integer;

i,n,đem,t:integer;

begin

clrscr;

write(nhap n=');

readln(n);

for i:=1 to n do

begin

write('a['i,']=')

readln(a[i]);

end;

{------------------xu-ly---------------}
dem:=0;t:=0;

for i:=1 to n do

if a[i] mod 2=0 then

begin

inc(dem);

t:=t+a[i];

end;

writeln('so phan tu chân trong day la:',dem);

writeln('tong cac phan tu chan trong day la:',t);

readln;

end.