Question

[Sang Lê (Sangpro7264)]

Nhập vào một dãy n số nguyên A[1],A[2],...,A[n] . Đọc ra màn hình các thông tin sau :

1. Tổng các phần tử của dãy.
2. Số lượng các số hạng dương và tổng của các số hạng dương.
3. Số lượng các số hạng âm và tổng của các số hạng âm.
4. Trung bình cộng của cả dãy. Trung bình cộng các phần tử dương của mảng. Trung bình cộng các phần tử âm của mảng.
5. Số hạng lớn nhất của dãy và chỉ số của nó.
6. Số hạng nhỏ nhất của dãy và chỉ số của nó.
7. Số lượng số chẵn và số lẻ trong dãy.

Answer 1

[Nguyễn Lê Phước Thịnh]

uses crt;
var i,n,tcd,t,t1,dem,dem1,dem2,dem3,dem4,dem5:longint;
a,b,c:array[1..100]of longint;
min,max:int64;
tbc,tbcd,tbca:real;
begin
clrscr;
write('nhap n='); readln(n);
for i:=1 to n do
begin
write('a[',i,']='); readln(a[i]);
end;
{---------------------------cau-1----------------------}
tcd:=0;
for i:=1 to n do
tcd:=tcd+a[i];
writeln('tong cac phan tu trong day la: ',tcd);
{-------------------------cau-2----------------------}
dem:=0;
t:=0;
for i:=1 to n do
if a[i]>0 then
begin
inc(dem);
t:=t+a[i];
end;
writeln('so luong cac so hang duong la: ',dem);
writeln('tong cac so hang duong la: ',t);
{-----------------------cau-3-----------------------}
dem1:=0;
t1:=0;
for i:=1 to n do
if a[i]<0 then
begin
inc(dem1);
t1:=t1+a[i];
end;
writeln('so luong cac so hang am la: ',dem1);
writeln('tong cac so hang am la: ',t1);
{---------------------cau-4---------------------------}
tbc:=tcd/n;
tbcd:=t/dem;
tbca:=t1/dem1;
writeln('trung binh cong cua ca day la: ',tbc:4:2);
writeln('trung binh cong cua cac so duong la: ',tbcd:4:2);
writeln('trung binh cong cua cac so am la: ',tbca:4:2);
{--------------------cau-5--------------------------------}
max:=0;
for i:=1 to n do
if max<a[i] then max:=a[i];
writeln('so lon nhat cua day la: ',max);
writeln('chi so cua no la: ');
dem2:=0;
for i:=1 to n do
if max=a[i] then
begin
inc(dem2);
b[dem2]:=i;
end;
for i:=1 to dem2 do
write(b[i]:4);
{---------------------cau-6-----------------------------}
writeln;
min:=maxint;
for i:=1 to n do
if min>a[i] then min:=a[i];
writeln('so nho nhat cua day la: ',min);
writeln('chi so cua no la: ');
dem3:=0;
for i:=1 to n do
if min=a[i] then
begin
inc(dem3);
c[dem3]:=i;
end;
for i:=1 to dem3 do
write(c[i]:4);
{-------------------------cau-7------------------------}
writeln;
dem4:=0;
dem5:=0;
for i:=1 to n do
begin
if a[i] mod 2=0 then inc(dem4);
if a[i] mod 2=1 then inc(dem5);
end;
writeln('so luong so chan cua day la: ',dem4);
writeln('so luong so le cua day la: ',dem5);
readln;
end.