Tin học Viết chương trình

[anhvan31122k1@gmail.com]

[TẶNG BẠN] TRỌN BỘ Bí kíp học tốt 08 môn
Chắc suất Đại học top - Giữ chỗ ngay!!

ĐĂNG BÀI NGAY để cùng trao đổi với các thành viên siêu nhiệt tình & dễ thương trên diễn đàn.

viết phương trình nhập từ bàn phím một dãy a gồm n số nguyên dương tính số lượng số chẵn số lẻ (n<=250) (a<=1000)

 

[ka1412]

n<=250 có nghĩa là số nguyên dương nhập vào <= 250 hay ntn hả bạn?

 

[anhvan31122k1@gmail.com]

đúng rồi
giúp mk với

 

[ka1412]

uses crt;
var a:array[1..1000] of byte;
i,n,c,l:integer;
begin
        clrscr;
        repeat
        write('Nhap n:');readln(n);
        if (n<1) or (n>1000) then writeln('Nhap lai n');
        until (n>=1) and (n<=1000);
        for i:=1 to n do
        begin
                repeat
                write('a[',i,']:');readln(A[i]);
                if (A[i]<1) or (A[i]>250) then writeln('Nhap lai a[i]');
                until (A[i]>=1) and (a[i]<=250);
        end;
        for i:=1 to n do
            if (A[i] mod 2=0) then inc(c) else inc(l);
        writeln('Co ' ,c,' so chan');
        write('Co ',l,' so le');
readln
end.