Question

Viết chương trình nhập vào một dãy số nguyên C gồm n phần tử(1<N<250) đều không vượt quá 500

a, tính tổng các số chia hết cho 5 của dãy C

b, biết số dương nhỏ hơn 40 của dãy C

c, in ra màn hình danh sách các số chẵn ở vị trí lề của dãy C mỗi kết quả in trên một dòng

Input

N=10

Dãy C:-7,10,32,-40,-12,17,60,-10,85,99

Tổng 105

Đếm 3

Danh sách 32 -12 60

Answer 1

uses crt;

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

i,n,t,dem:integer;

begin

clrscr;

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

for i:=1 to n do

begin

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

end;

t:=0;

dem:=0;

for i:=1 to n do

begin

if a[i] mod 5=0 then t:=t+a[i];

if a[i]<40 then inc(dem);

end;

writeln('Tong cac so chia het cho 5 la: ',t);

writeln('So phan tu nho hon 40 la: ',dem);

writeln('Cac so chan o vi tri le la: ');

for i:=1 to n do

if (a[i] mod 2=0) and (i mod 2=1) then writeln(a[i]:4);

readln;

end.