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.

18 tháng 12 2021

Đề bài yêu cầu gì?

21 tháng 12 2018

Var

i,d,n :integer;

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

begin

readln(n);

for i:=1 to n do

readln(a[i]);

for i:=1 to n do

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

write('mang A co :',d,'so nguyen duong');

readln

end.

13 tháng 4 2018

hinh nhu sai de

5 tháng 2 2017

chuc mung xinh nhat thu thao

4 tháng 2 2017

Các bn ơi!! ko pải 2018 đâu nhà là 2018 đó

5 tháng 2 2017

trừi ưi ... 2018 thì cx giống 2018 mừ ...

27 tháng 3 2016

k rồi mk giải cho

27 tháng 3 2016

giải đi rồi hứa sẽ k