Tin học Đếm số

[nhatminhchau.186@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.

mọi người giúp mình với
cho 1 dãy số nguyên có N phần tử a1,a2,a3,..aN đếm số phần tử có giá trị chẵn và vị trí lẻ trong dãy trên

 

[ka1412]

uses crt;
var a:array[1..100] of integer;
n,i,j,k:integer;
begin
    clrscr;
        write('Nhap n:');readln(n);
        for i:=1 to n do
        begin
                write('a[',i,']:');readln(A[i]);
                if (a[i] mod 2 =0) and (a[i]>0)  then inc(j);
                if (a[i]>0) and (a[i] mod 2<>0) then inc(k);
        end;
            writeln('Co ',k,' so le');
            write('Co ',j,' so chan');
readln
end.

 

[Nguyễn Thánh Tiền]

uses crt;
var a:array[1..100] of integer;
n,i,j,k:integer;
begin
    clrscr;
        write('Nhap n:');readln(n);
        for i:=1 to n do
        begin
                write('a[',i,']:');readln(A[i]);
    [COLOR=#ff0000]            if (a[i] mod 2 =0) and (i mod 2 <>0)  then inc(j);[/COLOR]
          
        end;
[COLOR=#ff0000]                write('Co ',j,' so can tim ');[/COLOR]
readln
end.

+ em ơi giá trị chẵn và vị trí lẻ
+ số chẵn là số chia hết cho 2 không cần biết âm hay dương

Thân

 

[ka1412]

uses crt;
var a:array[1..100] of integer;
n,i,j:integer;
begin
    clrscr;
        write('Nhap n:');readln(n);
        for i:=1 to n do
        begin
                write('a[',i,']:');readln(A[i]);
                if (a[i] mod 2 =0) and (a[i]<>0) then inc(j);
        end;
            writeln('Co ',j,' so chan');
            writeln('Cac vi tri chan:');
            for i:=1 to n do
            if a[i] mod 2 <>0 then writeln(i);
readln
end.