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