mấy bài này bro lấy đâu vậy chứ giống 100% đề thi thử cấp tỉnh của em quá

có nghĩa là nhập vào 1 sâu rồi đếm các chứ số à

bài chưa chạy thử bạn chạy lại xem nếu k đc thì bảo

program hoc24;

uses crt;

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

i,d,s: longint;

begin

clrscr;

for i:=1 to 6 do readln(a[i]);

s:=0;

for i:=1 to n do

if a[i]>0 then

begin

inc(d);

s:=s+a[i];

end;

writeln(d,s);

readln

end.

baif 2

a,