Bài 11: Kiểu mảng

Hạnh Lê

Viết chương trình nhập vào 1 mảng số nguyên n phần tử. Đếm các phần tử có giá trị dương ( n

Bùi Anh Tuấn
17 tháng 3 2021 lúc 20:27

Bình luận (0)
Nguyễn Lê Phước Thịnh
17 tháng 3 2021 lúc 21:47

uses crt;

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

i,n,dem:integer;

begin

clrscr;

write('Nhap n='); readln(n);

for i:=1 to n do 

  begin

write('A[',i,']='); readln(a[i]);

end;

dem:=0;

for i:=1 to n do 

  if a[i]>0 then inc(dem);

writeln(dem);

readln;

end.

Bình luận (0)

Các câu hỏi tương tự
Nguyễn tiên
Xem chi tiết
nguyễn hoàng long
Xem chi tiết
Phan uyển nhi
Xem chi tiết
Trần Cương
Xem chi tiết
Khang nguyễn
Xem chi tiết
uyen hihi
Xem chi tiết
LUÂN THÀNH THƯỞNG
Xem chi tiết
Bé Thúy
Xem chi tiết
Quang Trung Lê
Xem chi tiết