VCT nhập vào một dãy gồm n phần tử số nguyên ( n nhỏ hơn hoặc bằng 100). Cho biết có bao nhiêu số chẵn trong dãy vừa nhập. Giúp tui với mấy bạn ơiii!!! Viết CT trong Pascal nha

2 câu trả lời

uses crt;
var a:array[1..1000]of longint;i,n,dem:longint;
begin
 clrscr;
  write('nhap n:');readln(n);
  dem:=0;
  for i:=1 to n do
        begin
         write('nhap a[',i,']=');readln(a[i]);
         if(a[i]mod 2=0)then inc(dem);
        end;
  write('co ',dem,' so chan trong day');
 readln
end.

Một số chẵn là số sẽ chia hết cho 2

nên:

Program demso;

Uses crt;

Var a: array [1..100] of integer;

i,n,d: integer;

BEGIN

clrscr;

d:=0;

Write('Nhap N: '); Readln(n);

For i := 1 to n do Readln(a[i]);

For i := 1 to n do If a[i] mod 2 = 0 then d := d+1;

Writeln('So luong so chan la: ',d);

Readln;

END,

Câu hỏi trong lớp Xem thêm