Viết chương trình nhập vào một dãy n số a[1], a[2],…,a[n] và i ra màn hình các thông tin sau:
– Tổng các phần tử của dãy.
– Số lượng số dương và tổng của các số dương của dãy.
– số lượng số âm và tổng của các số âm của dãy.
– Trung bình cộng của dãy.
Viết chương trình nhập vào một dãy n số a[1], a[2],…,a[n] và i ra màn hình các thông tin sau: – Tổng các phần tử của dãy. – Số lượng số dương và tổn
By Skylar
program hocmang;
uses crt;
var A:array[1..10000] of integer;
n,i,ta,td,t,da,dd:integer;
begin
clrscr;
write(‘Nhap so luong phan tu: ‘); readln(n);
writeln(‘NHAP GIA TRI TUNG PHAN TU CUA DAY’);
t:=0; ta:=0; td:=0; da:=0; td:=0;
for i:=1 to n do
begin
write(‘A[‘,i,’]= ‘);
readln(A[i];
t:=t+A[i];
if A[i]<0 then
begin
da:=da+1;
ta:=ta+A[i];
end;
if A[i]>0 then
begin
dd:=dd+1;
td:=td+A[i];
end;
end;
writeln(‘Day vua nhap la:’);
for i:=1 to n do
write(A[i]:4);
writeln(‘Tong cac phan tu cua day la: ‘,t);
writeln(‘Co ‘,dd,’ phan tu duong trong day va tong cua chung la: ‘,td);
writeln(‘Co ‘,da,’ phan tu duong trong day va tong cua chung la: ‘,ta);
writeln(‘Trung binh cong cua day la: ‘,t/n:2:2);
readln
end.
uses crt;
var a:array[1..10000] of word;
n,i,s,f,t,a,d:word;
begin
clrscr;
write(‘Nhap so luong phan tu: ‘); readln(n);
for i:=1 to n do
begin
write(‘a[‘,i,’]=’);
readln(a[i]);
end;
for i:=1 to n do
begin
t:=t+a[i];
if a[i]>0 then
begin
s:=s+1;
f:=f+a[i];
end;
end;
writeln(‘tong cac ptu cua day la: ‘,t);
writeln(‘so luong so duong la: ‘,s,’ va tong cac so duong la: ‘,f);
for i:=1 to n do
if a[i]<0 then
begin
d:=d+1;
a:=a+a[i];
end;
writeln(‘so luong so am la: ‘,d,’ va tong cac so am la: ‘,a);
write(‘TBC cua day la:’,t/n:4:2);
readln
end.