1. 

(1) $\to$ Program Bai_Tap;

(4) $\to$ Begin

(5) $\to$ Write(' So luong phan tu: ');

(6) $\to$ Readln(N);

(7) $\to$ For i:=0 to N do

(10) $\to$ Readln(A[i]);

(11) $\to$ End;

(12) $\to$ S:=0; d:=0;

(14) $\to$ if A[i] mod 5 = 0 then S:=S+A[i];

(17) $\to$ End;

(18) $\to$ Writeln(' Tong cac so chia het cho 5 la: ',S);

(19) $\to$ Writeln(' So luong cac so chan trong chan: ',d);

(21) $\to$ End.

2.

Chương trình thực hiện công việc nhập vào số nguyên n (n<20), tính tổng các số chia hết cho 5, in ra màn hình và số lượng các số chẵn trong mảng và in ra màn hình.

$1$ tên chương trình không được có kí tự đặc biệt và dấu cách

Sửa -> Program Bai_tap;

$3$ Chưa khai báo biến S,d ,i

Sửa Var n,i,d,S : real;

$4$ bỏ dấu :

$5$ thiếu dấu '' .

$6$ thiếu dấu ;

$7$ thiếu dấu gán i:=0 to n do

$11$ end ; 

$15$ bỏ dấu :

$17$ đặt dấu ;

$18$ write

$21$ end.

Chương trình trên thực hiện nhập 20 số trong 1 mảng rồi tìm số các số chắn và tính tổng  các số chia hết cho 5