™
Giao diện mới của VnDoc Pro: Dễ sử dụng hơn - chỉ tập trung vào lớp bạn quan tâm. Vui lòng chọn lớp mà bạn quan tâm: Lưu và trải nghiệm
VnDoc.com Hỏi bài Tin học
TNTV Anti Tin học

Viết chương trình pascal nhập vào n phần tử của dãy số in ra màn hình

: các số khác nhau và số lượng của chúng

3
Xác thực tài khoản!

Theo Nghị định 147/2024/ND-CP, bạn cần xác thực tài khoản trước khi sử dụng tính năng này. Chúng tôi sẽ gửi mã xác thực qua SMS hoặc Zalo tới số điện thoại mà bạn nhập dưới đây:

Số điện thoại chưa đúng định dạng!
Số điện thoại này đã được xác thực!
Bạn có thể dùng Sđt này đăng nhập tại đây!
Lỗi gửi SMS, liên hệ Admin
Xóa Đăng nhập để viết
3 Câu trả lời
  • Bon
    Bon

    Program uv;

    Uses Crt;

    Var n,i,max: longint;

    a,b: array [1..1000000] of integer;

    begin

    clrscr;

    write('Nhap so phan tu: '); readln(n);

    max:= 0;

    For i:= 1 to n do

    begin

    write('a[',i,']: ');

    readln(a[i]);

    inc( b[a[i]] );

    If a[i] > max then max:= a[i];

    end;

    For i:= 1 to n do

    If b[i] <> 0 then writeln('So: ',i,' so luong: ',b[i]);

    readln;

    end.

    Xem thêm...     Trả lời hay
    1 Trả lời 10/05/23
  • Điện hạ
    Điện hạ

    help meeeeeee
    0 Trả lời 10/05/23
  • Kẹo Ngọt
    Kẹo Ngọt

    Bạn xem kiến thức bài: https://vndoc.com/ngon-ngu-lap-trinh-pascal-ebook-10047
    0 Trả lời 10/05/23

Tham khảo thêm

Danh mục
Hỏi bài ngay thôi!

Nhiều người đang xem

Câu hỏi mới

×

Gửi câu hỏi/bài tập

Thêm vào câu hỏi
Đăng
OK Hủy bỏ

Tin học
Xem thêm
Chia sẻ
Chia sẻ FacebookChia sẻ TwitterSao chép liên kếtQuét bằng QR Code
Mã QR Code
Đóng