Bài 11: Kiểu mảng

long gia

viết chương trình nhập mảng nguyên gồm n phân tử từ bàn phím:

a) cho biết mảng có bao nhiêu phần tử dương

b) in mảng ra màn hình

Nguyễn Lê Phước Thịnh
12 tháng 6 2020 lúc 19:08

uses crt;

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

n,i,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('So phan tu duong trong mang la: ',dem);

write('Mang ban vua nhap la: ');

for i:=1 to n do

write(a[i]:4);

readln;

end.

Bình luận (0)

Các câu hỏi tương tự
Ken Kaneki
Xem chi tiết
Nguyễn tiên
Xem chi tiết
nông thị ngân
Xem chi tiết
nguyễn hoàng long
Xem chi tiết
truc nguyen
Xem chi tiết
Nguyen Loi
Xem chi tiết
Toản Nguyễn
Xem chi tiết
Yến Nhi
Xem chi tiết
Benny
Xem chi tiết
Linh Chi
Xem chi tiết