Question

[19. Nguyễn Hà Bảo Ngân]

Viết chương trình nhập vào từ bàn phím 1 mảng số nguyên                                                                             a. cho biết dãy số vừa nhập có bao nhiêu số chẵn                                                    b. cho biết dãy số vừa nhập có bao nhiêu số từ 1 đến 50                                       c. tính tổng các số đó

Answer 1

[Kiều Vũ Linh]

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

i,n,d1,d2,s:integer;

Begin

Write('Nhap so luong phan tu n = ');readln(n);

For i:=1 to n do

Begin

Write('Nhap phan tu thu ',i,' = ');readln(a[i]);

End;

For i:=1 to n do

Begin

If a[i] mod 2 = 0 then d1:=d1+1;

If (a[i] > 0) and (a[i] < 51) then d2:=d2+1;

End;

Writeln('Co ',d1,' so chan');

Write('Co ',d2,' so tu 1 den 50');

Readln;

End.