Tin học Tin Học Pascal

Thảo luận trong 'Tin học cấp III' bắt đầu bởi Trần Đình Thiện, 9 Tháng hai 2020.

Lượt xem: 132

  1. Trần Đình Thiện

    Trần Đình Thiện Học sinh mới Thành viên

    Bài viết:
    2
    Điểm thành tích:
    6
    Nơi ở:
    Hà Tĩnh
    Trường học/Cơ quan:
    THPT Lý Tự Trọng
    Sở hữu bí kíp ĐỖ ĐẠI HỌC ít nhất 24đ - Đặt chỗ ngay!

    Đọc sách & cùng chia sẻ cảm nhận về sách số 2


    Chào bạn mới. Bạn hãy đăng nhập và hỗ trợ thành viên môn học bạn học tốt. Cộng đồng sẽ hỗ trợ bạn CHÂN THÀNH khi bạn cần trợ giúp. Đừng chỉ nghĩ cho riêng mình. Hãy cho đi để cuộc sống này ý nghĩa hơn bạn nhé. Yêu thương!

    uses crt;
    var A:array[1..100] of longint;
    i,n,m:longint;
    begin
    clrscr;
    write('nhap so phan tu cua mang '); readln(n);
    for i:=1 to n do
    begin
    write('A[',i,']='); readln(A);
    end;
    write('nhap so can so sanh '); readln(m);
    d:=0;
    for i:=1 to n do if A=m then d:=d+1;
    write('day co ',d,' phan tu bang ',m);
    readln
    end.
    Mọi người cho mình hỏi tại sao khi chạy có cứ bị lỗi exitcode=1 ạ . Cảm Ơn.
     
  2. anhlop755@gmail.com

    anhlop755@gmail.com Học sinh Thành viên

    Bài viết:
    143
    Điểm thành tích:
    26

    Sửa thành writeln hết xem nào.....................................................................................
     
  3. Trần Đình Thiện

    Trần Đình Thiện Học sinh mới Thành viên

    Bài viết:
    2
    Điểm thành tích:
    6
    Nơi ở:
    Hà Tĩnh
    Trường học/Cơ quan:
    THPT Lý Tự Trọng

     
  4. bùi thị xuân mai

    bùi thị xuân mai Học sinh mới Thành viên

    Bài viết:
    38
    Điểm thành tích:
    16
    Nơi ở:
    Quảng Nam
    Trường học/Cơ quan:
    thcs võ thị sáu

    bạn làm theo cách này thử:):)
     

    Các file đính kèm:

    Trần Đình Thiện thích bài này.
Chú ý: Trả lời bài viết tuân thủ NỘI QUY. Xin cảm ơn!

Draft saved Draft deleted

CHIA SẺ TRANG NÀY

-->