Kiểu dữ liệu có cấu trúc

Os. Htt

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

Nguyễn Lê Phước Thịnh
13 tháng 10 2019 lúc 23:59

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.

Bình luận (0)

Các câu hỏi tương tự
Thi Đua Khen Thưởng
Xem chi tiết
Nguyễn Thị Ngọc Ánh
Xem chi tiết
Lâm Nguyên Khôi
Xem chi tiết
Bin Nguyễn
Xem chi tiết
Ẩn Nguyen
Xem chi tiết
Trần Tuyền
Xem chi tiết
Nguyễn Luân
Xem chi tiết
Ngọcc Ngọccc
Xem chi tiết
Tien Nguyen
Xem chi tiết