Bài 11: Kiểu mảng

Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
Dương Thị Ngọc Anh
Giúp mk với ạ Nhập mảng một chiều các số nguyên không quá 100 phần tử . Tính trung bình bình cộng các phần tử ở vị trí lẻ.
Nguyễn Lê Phước Thịnh
1 tháng 1 2021 lúc 22:59

uses crt;

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

n,dem,i,t:integer;

begin

clrscr;

write('Nhap n='); readln(n);

for i:=1 to n do 

  begin

write('A[',i,']='); readln(a[i]);

end;

dem:=0;

t:=0;

for i:=1 to n do 

  if i mod 2=1 then 

begin

inc(dem);

t:=t+a[i];

end;

writeln('Trung binh cong cac phan tu o vi tri le la: ',t/dem:4:2);

readln;

end.


Các câu hỏi tương tự
Tô Thị Thanh Tuyền
Xem chi tiết
Lê Thị Bảo Trâm
Xem chi tiết
Khánh Mỹ
Xem chi tiết
Hoàng Phi Kim Huệ
Xem chi tiết
Nguyễn Linh Chi
Xem chi tiết
Minh Hoạt
Xem chi tiết
Pinky Bảo Trân
Xem chi tiết
Nhân
Xem chi tiết
LUÂN THÀNH THƯỞNG
Xem chi tiết