viết chương trình pascal nhập dãy số nguyên n phần tử từ bàn phím .tính và in ra màn hình tổng của các số dương
0 bình luận về “viết chương trình pascal nhập dãy số nguyên n phần tử từ bàn phím .tính và in ra màn hình tổng của các số dương”
Program FNG; Uses crt; Var A: array[1..10000] of longint; n,i,s: longint; Begin Clrscr; Write(‘Nhap n: ‘); Readln(n); For i:=1 to n do Begin Write(‘A[‘,i,’] = ‘); Readln(A[i]); If A[i]>0 then s:=s+A[i]; End; Write(‘S = ‘,s); Readln End.
Program FNG;
Uses crt;
Var A: array[1..10000] of longint;
n,i,s: longint;
Begin
Clrscr;
Write(‘Nhap n: ‘); Readln(n);
For i:=1 to n do
Begin
Write(‘A[‘,i,’] = ‘);
Readln(A[i]);
If A[i]>0 then s:=s+A[i];
End;
Write(‘S = ‘,s);
Readln
End.
program ct;
uses crt;
var S,i,n:integer;
A:array[1..100] of integer;
begin
clrscr;
write(‘nhap n:=’);readln(n);
for i:=1 to n do
begin
write(‘nhap mang A[‘,i,’]:=’);readln(A[i]);
end;
S:=0;
for i:=1 to n do
if A[i]>0 then S:=S+A[i];
writeln(‘tong cac so duong la:’,S);
readln
end.