Nhập Mảng Một Chiều Các Số Nguyên (không Quá 100 Phần Tử

Có thể bạn quan tâm

Program bt_3;

Uses crt;

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

Dem, Tong, n, i: integer;

Begin

Clrscr;

Writeln(‘nhap so phan tu, n=’);

Readln (n);

for i := 1 to n do

begin

writeln(‘nhap gia trij phan tu thu ’,i,’ =’);

readln(a[i]);

end;

Dem:=0;

Tong:=0;

For i:=1 to n do

If (a[i] mod 2 = 0) and (a[i] mod 5 = 0) then

begin

Dem:= Dem+1;

Tong:= Tong+a[i];

end;

writeln(‘Dem la:’,Dem);

Writeln(‘Tong la:’,Tong);

Readln

End.

Từ khóa » Viết Chương Trình Nhập Mảng 1 Chiều Pascal