Viết chương trình nhập vào số nguyên dương N và dãy số nguyên A1,A2,...,AN a) In mảng vừa nhập b) Đếm số phần tử lớn hơn 0 của mảng Bài nay cô giáo yêu cầu làm ở free pascal trên máy tính , mọi người k cần viết ra nữa ạ Mình cần từ nay đến thứ 4 ạ ,mọi người giúp mk với :((
2 câu trả lời
Gửi bạn<33
_____________________________________
Hình thứ nhất là viết chương trình
Hình thứ 2 là chạy chương trình
Gửi bạn:
uses crt;
var a:array[1..100]of integer;
m,n,dem,i:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
write('Nhap m='); readln(m);
dem:=0;
for i:=1 to n do
if a[i]=m then inc(dem);
writeln('So phan tu bang ',m,' la: ',dem);
readln
end.
Câu hỏi trong lớp
Xem thêm
