Question

viết ctrinh nhập vào mã 1 chiều k quá 100 số thực và thực hiện các công việc sau:

- tính tổng tất cả các phần tử mã vừa nhập

- tính tb cộng của tất cả các phần tử vừa nhập

- nhập vào 1 giá trị k bất kì và kiểm tra xem có tồn tại giá trị k trong mảng hay không? nếu có thì giá trị k nằm ở những vị trí nào trong mảng? kiểm tra xem mảng vừa nhập có bao nhiêu giá trị âm, bao nhiêu giá trị dương

- sắp xếp lại mã vừa nhập theo thứ tự tăng dần

Answer 1

uses crt;
var a,b:array[1..100]of integer;
n,i,t,k,vt,kt,dem,j,dem1,dem2,tam:integer;
tbc:real;
begin
clrscr;
write('nhap so phan tu:'); readln(n);
for i:=1 to n do
begin
write('a[',i,']='); readln(a[i]);
end;
{-----------------------------------------------------}
for i:=1 to n do write(a[i],' ');
{-----------tinh-tong---------------------}
writeln;
t:=0;
for i:=1 to n do
t:=t+a[i];
writeln('tong tat ca cac phan tu la: ',t);
{-----------tb-cong------------------------}
writeln;
tbc:=t/n;
writeln('trung binh cong cua day so la: ',tbc:4:2);
{-----------kiem-tra-k----------------}
writeln;
write('k='); readln(k);
dem:=0;
kt:=0;
for i:=1 to n do
if a[i]=k then
begin
kt:=1;
vt:=i;
begin
dem:=dem+1;
b[dem]:=i;
end;
end;
if kt=0 then writeln(k,' khong co trong day')
else
begin
write(k,' co trong day o cac vi tri thu ');
for j:=1 to dem do
write(b[j]:4);
end;
{---------------------kiem-tra-am-duong--------------------}
dem1:=0; dem2:=0;
for i:=1 to n do
begin
if a[i]>0 then inc(dem1);
if a[i]<0 then inc(dem2);
end;
writeln;
writeln('so luong so duong trong day la: ',dem1);
writeln('so luong so am trong day la: ',dem2);
{--------------------sap-xep-tang-dan-------------------}
for i:=1 to n-1 do
for j:=i+1 to n do
if a[i]>a[j] then
begin
tam:=a[i];
a[i]:=a[j];
a[j]:=tam;
end;
writeln('day duoc sap xep tang dan la: ');
for i:=1 to n do
write(a[i]:4);
readln;
end.