Cụ thể các số là sao ạ? Nếu đề chỉ kêu đếm số âm hay tính tổng các phần tử trong dãy thì em hiểu còn dãy số thực thì em không biết nó khác gì với số nguyên ((
1. Đầu tiên khởi tạo một mảng số thực với 200 phần tử
Mã:
var MangSoThuc: array[1..200] of extended;
2. Sau đó tạo một biến tổng để lưu trữ giá trị của tổng 200 số thực
Mã:
var Tong: extended;
3. Sau đó ta sẽ tạo một vòng lặp để cộng 200 phần tử lại với nhau
Mã:
for i:= 1 to 200 do Sum := Sum + MangSoThuc[i];
Đây là logic cơ bản của bài, sau đây là chương trình đầy đủ để tham khảo:
Mã:
program TongSoThuc;
uses crt;
var i: integer;
Tong: extended;
MangSoThuc: array[1..299] of extended;
begin
sum := 0;
for i:= 1 to 200 do
begin
readln(MangSoThuc[i]);
Sum := Sum + MangSoThuc[i];
end;
writeln(Sum);
readln;
end.
Cái này tương tự như ở trên, nhưng chúng ta sẽ có thêm một điều kiện và một biến đếm, đó là khi số thực bé hơn 0 thì tăng biến đếm thêm một đơn vị. Sau đây là chương trình tham khảo cho bạn:
Mã:
program DemSoThucAm;
uses crt;
var Dem, i: longint;
MangSoThuc: array[1..200] of extended;
begin
Dem := 0;
for i := 1 to 200 do
begin
readln(MangSoThuc[i]);
if (MangSoThuc[i] < 0} then Dem := Dem +1;
end;
writeln(Dem);
readln;
end.