Viết chương trình nhập vào mảng A có N phần tử. Nhập vào giá trị X là số nguyên bất kì. Đếm số lần xuất hiện của giá trị X trong mảng A.

ninhninh17112015

2 năm trước

Loga Sinh Học lớp 12

0 lượt thích 35 xem

1 trả lời

Thích Trả lời

kiligaigaz

program xuathien;

uses crt;

var A:array[1..10000] of integer;

n,i,x,d:integer;

begin

clrscr;

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

writeln('NHAP GIA TRI TUNG PHAN TU CUA DAY');

for i:=1 to n do

begin

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

readln(A[i]);

end;

writeln('Day vua nhap la:');

for i:=1 to n do

write(A[i]:4);

write('Nhap X: '); readln(x);

d:=0;

for i:=1 to n do

if A[i]=x then d:=d+1;

write('Xuat hien ',d,' lan');

readln

end.

Vote (0) Phản hồi (0) 2 năm trước

watermelon

Program demso

Uses crt;

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

i, k, t, N : integer;

Begin

clrscr;

Write ('Nhap so phan tu: '); Readln(N);

For i:=1 to N do

begin

Write('Nhap a[',i,']: ');

Readln(a[i]);

end;

Write('Nhap gia tri muon dem trong mang: ');Readln(k);

i:=1;

t:=0;

While i <= N do

begin

if a[i] = k then t:=t+1;

i := i+1;

end;

Writeln('So lan xuat hien cua ',k,' trong mang la: ', t);

Readln;

End.

Vote (0) Phản hồi (0) 2 năm trước

Các câu hỏi liên quan

Smoking cigarettes is becoming a serious problem in our society. From the point of view of a teenager, discuss it by giving examples to support your main idea. What solution might be suggested? Write abt 120 words.

Giải phương trình `3/(2x-1)+1=(2x-1)/(2x+1)`

Giúp mình với!!!!!NHANH LÊN NHA

`2/5` + `2/15` + `2/35` + ......... + `2/n` + `60/61` Tìm n trong vòng 1p ạ xin mod đừng xóa

Tổng tuổi của bố và Dung là 84, biết rằng tuổi của Dung bằng 1/3 số tuổi của bố. Hỏi tuổi của bố là bao nhiêu?

làm hộ em bài 13 với ạ gấp lắm ạ 30 điểm ..............

Một số A được chia thành 3 phần tỉ lệ nghịch với 5 : 2 : 4 biết tổng các lập phương của 3 phần đó là 9512. Tìm A làm cẩn thận, không cần nhanh mà cần đúng

những câu tục ngữ về quê hương yên thành

cho chu vi là 2,041 . hỏi bánh xe lăn được bao nhiêu vòng nếu người đó đi được quãng đường dài 408,2 m

Giúp mk bài hoá này mai mk nộp r

Loga.vn - Cộng Đồng Luyện Thi Trực Tuyến