Viết chương trình nhập vào một mảng số nguyên không quá 250 phần tử. Đếm số phần tử nguyên dương chẵn có trong mảng
2 câu trả lời
uses crt;
var i,n,d:longint; a:array[1..250]of longint;
begin
clrscr;
write('Nhap so luong phan tu: ');readln(n);
for i:=1 to n do
begin
write('Nhap phan tu thu ',i,': ');readln(a[i]);
if a[i] mod 2=0 then d:=d+1;
end;
writeln('So phan tu nguyen duong chan: ',d);
readln
end.
Program baitap;
Uses crt;
Var A:array[1..250] of integer;
i,n,dem:integer;
Begin
Clrscr;
Write('So cac so phan tu co trong mang:');
Readln(n);
dem:=0;
For i:=1 to n do
Begin
Write('A[',i,']=');
Readln(A[i]);
If (A[i]>0 and (A[i] mod 2=0)) then dem:=dem+1;
End;
Writeln('Co ',dem,' so phan tu nguyen duong chan');
Readln
End.
