Question

viết chương trình pascal sử dụng biến mảng để nhập từ bàn phím các phần tử của một dãy số in ra màn fhình dãy số vừa nhập và tính tổng các số chẵn trong dãy

Answer 1

program bien_mang;

uses crt;

var i, n, s : integer;

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

begin

clrscr;

write('So phan tu la: '); readln(n);

s:=0;

for i:=1 to n do begin

write('Nhap so thu ',i); readln(a[i]);

if a[i] mod 2 = 0 then s:=s+1;

end;

for i:=1 to n do writeln('Các số vừa nhập là :',a[i]);

writeln('Tong cac so chan la',s);

readln;

end.