Question

viết chương trình nhập dãy số n in ra các số chẵn trong dãy vừa nhập(sử dụng biến mảng)

Answer 1

uses crt;

Var n,i,s:integer;

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

begin

clrscr;

Write('n = ');readln(n);

for i:=1 to n do

begin

Write('a[',i,']= ');readln(a[i]);

end;

{-------xu-ly----------------------------}

for i:=1 to n do

if a[i] mod 2 = 0 then write(a[i]:4);

readln;

end.

cái này mới đúng nhé bạn , cái lúc nãy mình làm sai

Answer 2

Var n,i,s:integer;

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

begin

Write('n = ');readln(n);

for i:=1 to n do

Write('a[i] = ');readln(a[i]);

for i:=1 to n do

if a[i] mod 2 = 0 then write(a[i]);

readln

end.

theo mình là vậy.

Chúc bạn học tốt!

Answer 3

uses crt;

Var n,i,s:integer;

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

begin

clrscr;

Write('n = ');readln(n);

for i:=1 to n do

begin

Write('a[i] = ');readln(a[i]);

end;

{-------xu-ly----------------------------}

for i:=1 to n do

if a[i] mod 2 = 0 then write(a[i]:4);

readln;

end.