Bài 9. Làm việc với dãy số

Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
Lê Nam

Viết chương trình nhập vào 1 dãy số thực sau đó thông báo ra màn hình các số dương và tổng các số dương đó

Minh Lệ
15 tháng 4 2019 lúc 13:12

Lời giải :

program hotrotinhoc ;

var a: array[1..32000] of real ;

i,n,tong : integer ;

begin

write('Nhap do dai cua day :'); readln(n);

write('Nhap cac gia tri cua phan tu');

for i:= 1 to n do

begin

write('a[',i,']='); readln(a[i]);

end;

tong:=0;

for i:= 1 to n do

if a[i] > 0 then

begin

write('Cac so duong la:',a[i]);

tong:=tong+a[i];

end;

write('Tong cac so duong la:',tong);

readln

end.

Ducanhdeptraibodoi
15 tháng 4 2019 lúc 13:14

Tính và in ra tổng các số lẻ (dương)
Program Tinh_tong_so_le;
Uses CRT;
Var i,n,S:integer;
sl:boolean;
Begin
Clrscr;
Write('Nhap so n:');Readln(n);
sl:=True;
For i:=1 to n do
Begin
If sl=True then S:=S+i;
sl:= not True;
End;
Writeln('Tong cua n so le la:', S);
Readln;
End.


Các câu hỏi tương tự
Uchiha Obito
Xem chi tiết
Trần Đức Duy
Xem chi tiết
Jeri James
Xem chi tiết
Hoà Trần
Xem chi tiết
trương lại văn
Xem chi tiết
Mẫn Kim Anh
Xem chi tiết
Hoàng Thị Vân
Xem chi tiết
Hà Trần
Xem chi tiết
Phương Linh
Xem chi tiết
Huy Hoang Nguyen
Xem chi tiết