Question

Nhập vào dãy số gồm N phần tử đếm các số dương tính tổng và in ra màn hình các số đó

Answer 1

uses crt;

var i,n,n,d: integer;

t: longint;

A: array[1..32000] of integer;

begin

clrscr;

readln(n);

for i:=1 to n do 

readln(a[i]);

for i:=1 to n do

if a[i] >0 then

begin

d:=d+1;

t:=t+a[i];

end;

writeln('Tong la:',t);

write('Co tat ca so so duong la:',d);

readln;

end.

Answer 2

Giúp mình vs mình ko bt lm :((