Tin học viết chương trình pascal

[daophuonghaianh]

[TẶNG BẠN] TRỌN BỘ Bí kíp học tốt 08 môn
Chắc suất Đại học top - Giữ chỗ ngay!!

ĐĂNG BÀI NGAY để cùng trao đổi với các thành viên siêu nhiệt tình & dễ thương trên diễn đàn.

Viết chương trình nhập từ bàn phím số nguyên dương N ( N <= 250) và dãy số nguyên A1, A2, A3,…an TÍNH và đưa ra màn hình TBC các số chia hết có 5 tại vị trí chẵn của dãy

 

[nguyen tran thanh nha]

var i,n,t,d:longint;l:real;
begin
writeln('nhap n:'); readln(n);d:=0;t:=0;
for i:= 1 to n do
begin
writeln('nhap phan tu thu ',i);read(a[ i ]);
if (a[ i ] mod 5 =0 ) and (i mod 2=0) then begin t:= t+a[ i ];d:= d+1;end;
end;
l:= t/d;
writeln(l:0:2);
end.