JavaScript is disabled. For a better experience, please enable JavaScript in your browser before proceeding.

Bạn đang xem: Đếm số lần xuất hiện của các phần tử trong mảng pascal


You are using an out of date browser. It may not display this or other websites correctly.You should nâng cấp or use an alternative browser.
*

*
TRỌN BỘ bí kíp học giỏi 08 môn

Nhập một số X từ bàn phím. Đếm số lần xuất hiện thêm của thành phần đó vào mảng:Input: 101 5 6 7 4 1 5 5 1 1Output: 1 4Mình cày 3 giờ đồng hồ rồi tuy nhiên vẫn chưa làm được. Chúng ta giúp mình viết câu lệnh cho bài xích này nhé! mong nhận được sự giúp đỡ từ hầu như người.
*

var a:array<1..100> of integer;x,d,i,n:integer;begin readln(n); for i:=1 to lớn n vì begin write("a<",i,">="); readln(a < i >); end;readln(x);for i:=1 khổng lồ n do if a=x then d:=d+1;writeln("so lan xuat hien cua ",x," trong sở hữu la:",d);readlnENd.
*

Nhập một số ít X trường đoản cú bàn phím. Đếm số lần xuất hiện của thành phần đó trong mảng:Input: 101 5 6 7 4 1 5 5 1 1Output: 1 5Mình cày 3 tiếng rồi cơ mà vẫn chưa làm được. Chúng ta giúp bản thân viết câu lệnh cho bài xích này nhé! hy vọng nhận được sự hỗ trợ từ hồ hết người.

Xem thêm: 111 Synonyms & Antonyms For Tend Definition & Meaning, Tend Definition And Meaning


Bạn ơi mik ko hiểu nơi input và output của bạn lắm . Đây là CT mk viết chúng ta kiểm tra xem có kết quả xuất ra có đúng không nhỉ nhé (p/s: Ko biết bạn có học tập kiểu này không hay nhập tài liệu theo tệp .inp nếu bao gồm thì bảo mk để sửa nhé)
*

*

Bạn ơi mik ko hiểu khu vực input cùng output của bạn lắm . Đây là CT mk viết bạn kiểm tra coi có hiệu quả xuất ra có đúng không ạ nhé (p/s: Ko biết bạn có học kiểu này sẽ không hay nhập tài liệu theo tệp .inp nếu tất cả thì bảo mk nhằm sửa nhé)View attachment 97946
Kiểm tra lại đề xem, input đầu vào với output bao gồm vấn đề.Input:
Số X là số nào ?Output: ví như X = 1 thì output nên là 4 chứ.
Vậy thì code phía trên bạn:vara:array<1..100> of integer;x,d,i,n:integer;fi,fo:text;beginassign(fi,"nhap.inp");reset(fi);assign(fo,"xuat.out");rewrite(fo);read(fi,n);for i:=1 to lớn n doread(fi,a < i >);read(fi,x);for i:=1 to lớn n vì chưng if a < i >=x then d:=d+1;writeln(fo,d);Close(fi);close(fo);ENd.Sai cái gì thì bn lưu giữ nói mk nhằm mk sửa nhaFILE vào
*
Flie ra:
*

Sai vật gì thì bn lưu giữ nói mk để mk sửa nhaFILE vàoView attachment 98011Flie ra:View attachment 98012
Mình nghỉ là đề của doanh nghiệp bị không nên rồiBởi vì 1 là giá trị của x nhập vào nên nó phải ở trong phần input new đúng nha. Theo mình cho rằng như vậy

Về bọn chúng tôi

chủ quản: hệ thống giáo dục girbakalim.netTòa công ty 25T2 trung hòa - cg cầu giấy - Hà NộiGiấy phép MXH số 597/GP-BTTTT cỗ TT&TT cung cấp