Viết chương trình nhập vào mảng songuyen (≤ 100 phần tử). In ra màn hình mảng vừa nhập và tổng các phần tử là bội của 5?

Question

phuongthao · Answer

Uses crt;

Var i, n, tong: integer;

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

Begin

Clrscr;

Write(‘Nhap n = ‘); readln(n);

For i:=1 to n do

Begin

Write(‘A[‘,i,’]=’);

Readln(a[i]);

End;

tong:=0;

For i:=1 to n do if a[i] mod 5 = 0 then inc(tong, a[i]);

Writeln(‘Tong cac phan tu la boi cua 5 la: ‘,tong:4:2);

Readln

End.

0 bình luận về “Viết chương trình nhập vào mảng songuyen (≤ 100 phần tử). In ra màn hình mảng vừa nhập và tổng các phần tử là bội của 5?”