Bài 11: Kiểu mảng

Thảo Nguyễn

Viết chương trình cho phép nhập giá trị cho một mảng một chiều Agồm n phần tử có kiểu là số thực (0 < n < 50 ). Sau đó:

a. Đếm số phần tử có giá trị dương của mảng. b. In ra màn hình giá trị của mảng theo thứ tự tăng dần. c. Tính tổng các phần tử có giá trị âm của mảng. MỌI NGƯỜI GIÚP MÌNH VỚI MÌNH ĐANG CẦN GẤP
Hakita Nguyen
14 tháng 2 2020 lúc 18:43

var n,i,j,d:longint;
s,t:double;
a:array[1..1000] of double;
begin
readln(n);
for i:=1 to n do
read(a[i]);
for i:=1 to n do
if (a[i]>=0) then d:=d+1
else s:=s+a[i];
for i:=1 to n do
for j:=i+1 to n do
if (a[i]>a[j]) then begin t:=a[i];
a[i]:=a[j];
a[j]:=t; end;
writeln(d);
for i:=1 to n do
write(a[i]:5:2,' ');
writeln;
write(s:5:2);
end.

Bình luận (0)
 Khách vãng lai đã xóa
Nguyễn Lê Phước Thịnh
14 tháng 2 2020 lúc 18:52

uses crt;
var a:array[1..50]of real;
i,n,dem,j:integer;
tam,t:real;
begin
clrscr;
write('n='); readln(n);
for i:=1 to n do
begin
write('a[',i,']='); readln(a[i]);
end;
{-----------------------------cau-a--------------------------------}
dem:=0;
for i:=1 to n do
if a[i]>0 then inc(dem);
writeln('so phan tu duong cua day la: ',dem);
{-----------------------------cau-b---------------------------------}
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 tang dan cua mang la: ');
for i:=1 to n do
write(a[i]:4:2,' ');
{-----------------------------cau-c-----------------------------------}
writeln;
t:=0;
for i:=1 to n do
if a[i]<0 then t:=t+a[i];
writeln('tong cac phan tu am trong day la: ',t:4:2);
readln;
end.

Bình luận (0)
 Khách vãng lai đã xóa

Các câu hỏi tương tự
Nguyễn tiên
Xem chi tiết
nguyễn hoàng long
Xem chi tiết
NTTN
Xem chi tiết
Huỳnh Thanh
Xem chi tiết
Khang nguyễn
Xem chi tiết
Trần Cương
Xem chi tiết
hihi
Xem chi tiết
Bui Trong Diep
Xem chi tiết
Thu Hiền
Xem chi tiết