Question

Cho mảng a gồm n phần tử

A) nhập các phần từ của mảng và xuất

B) tính trung bình và xuất ra mảng đã cho

C) có bao nhiêu phần tử là bội của 5

D) tìm phần tử nhỏ nhất

Answer 1

uses crt;

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

i,n,t,dem,min:integer;

tb:real;

begin

clrscr;

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

for i:=1 to n do

begin

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

end;

t:=0;

for i:=1 to n do

t:=t+a[i];

tb:=t/n;

writeln('Mang ban vua nhap la: ');

for i:=1 to n do write(a[i]:4);

writeln;

dem:=0;

for i:=1 to n do

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

writeln('So phan tu la boi cua 5 la: ',dem);

min:=a[1];

for i:=2 to n do

if min>a[i] then min:=a[i];

writeln('Phan tu nho nhat la: ',min);

readln;

end.