vẽ giúp em cái sơ đồ dc kh ạ
K
Khách
Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.
Những câu hỏi liên quan
TT
0
SS
2
.PNG)
AP
11 tháng 10 2021
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.
PB
1