Sử dụng biến mảng viết chưa trình nhập vào một dãy số gồm N số nguyên từ bàn phím in ra màn hình tổng các số dương trong dãy số đó.
cứu mình huhu

Question

Sử dụng biến mảng viết chưa trình nhập vào một dãy số gồm N số nguyên từ bàn phím in ra màn hình tổng các số dương trong dãy số đó. cứu mình huhu

quynhnhu · Answer

uses crt;

var a: array[1..100] of integer;

i,n,s: integer;

begin

clrscr;

write(‘nhap n: ‘); readln(n);

for i:=1 to n do

begin

write(‘nhap PT thu ‘,i,’: ‘); readln(a[i]);

if a[i]>0 then s:=s+a[i];

end;

write(‘tong cac so duong trong day la: ‘,s);

readln;

end.

nhanlinh · Answer

program tong_duong;

uses crt;

var A:array[1..1000] of integer;

n,i,t:integer;

begin

clrscr;

write(‘Nhap N: ‘); readln(n);

t:=0;

for i:=1 to n do

begin

write(‘Nhap so thu ‘,i,’: ‘); readln(A[i]);

if A[i]>0 then t:=t+A[i];

end;

write(‘Tong cac so duong la: ‘,t);

readln;

end.

0 bình luận về “Sử dụng biến mảng viết chưa trình nhập vào một dãy số gồm N số nguyên từ bàn phím in ra màn hình tổng các số dương trong dãy số đó. cứu mình huhu”