Question

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 đó

Answer 1

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.

Answer 2

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.