Question

Làm giúp em câu d vs ạ. Vẽ sơ đồ khối ra thôi ạ

Answer 1

uses crt;

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

i,n,d,tong :integer;

begin

clrscr;

d:=0;

tong:=0;

readln(n);

for i:=1 to n do

readln(a[i]);

end;

for i:=1 to n do

if (a[i]>0) then begin

d:=d+1;

if d=1 then begin writeln('trong day co so nguyen duong '); write(' vi tri cua cac so duong ',i); end

else

begin

tong:=tong+a[i];

write(' ',i);

end;

end

else if ((i=n)and(d=0)) then write(' khong co so duong');

writeln;

writeln(' tong so luong so nguyen duong trong day so: ',d);

writeln(' ton cac so nguyen duong: ',tong);

readln;

end.