Viết chương trình sử dụng biến mảng để nhập từ bàn phím các phần tử của một dãy số nguyên. Độ dài của dãy cũng được nhập từ bàn phím
a) In các số ra màn hình
b) Tính tổng các phần tử lẻ
c) Đếm xem có bao nhiêu phần tử chia hết cho 3
d) Tính giá trị trung bình của các phần tử
e) In ra các số chẵn và tính tổng các số đó
Viết chương trình sử dụng biến mảng để nhập từ bàn phím các phần tử của một dãy số nguyên. Độ dài của dãy cũng được nhập từ bàn phím a) In các số ra
By Brielle
uses crt;
var i,n,s,tb,d3:longint; a:array[1..1000000]of longint;
begin
clrscr;
write(‘Nhap do dai cua day: ‘);readln(n);
for i:=1 to n do
begin
write(‘Nhap phan tu thu ‘,i,’: ‘);readln(a[i]);
if a[i] mod 2=1 then inc(s,a[i]);
if a[i] mod 3=0 then inc(d3);
inc(tb,a[i]);
end;
write(‘a) Cac so vua nhap: ‘);
for i:=1 to n do write(a[i],’ ‘); writeln;
writeln(‘b) Tong cac phan tu le: ‘,s);
writeln(‘c) Co ‘,d3,’ phan tu chia het cho 3′);
writeln(‘d) Gia tri trung binh cua cac phan tu: ‘,tb/n:0:2);
write(‘e) Cac so chan: ‘);
for i:=1 to n do
if a[i] mod 2=0 then write(a[i],’ ‘);
writeln;
writeln(‘Tong cac so chan: ‘,tb-s);
readln
end.
uses crt;
var i,n,t,s,s1,d:longint;
a:array[1..1000000] of longint;
begin
clrscr;
readln(n);
for i:=1 to n do
begin
write(‘a[‘,i,’]=’);
readln(a[i]);
end;
write(‘a, ‘);
for i:=1 to n do write(a[i],’ ‘);
writeln;
s:=0;
for i:=1 to n do if a[i] mod 2<>0 then s:=s+a[i];
writeln(‘b, ‘,s);
d:=0;
for i:=1 to n do if a[i] mod 3=0 then d:=d+1;
writeln(‘c, ‘,d);
for i:=1 to n do t:=t+a[i];
writeln(‘d, ‘,t/n:0:2);
writeln(‘e, ‘);
for i:=1 to n do if a[i] mod 2=0 then
begin
write(a[i],’ ‘);
s1:=s1+a[i];
end;
writeln;
write(s1);
readln
end.