Hương Giang

Hãy viết CT tính TBC của các phần tử trong dãy số và đếm xem có bao nhiêu phần tử ở vị trí chẵn ( với độ dài của dãy số được nhập vào từ bàn phím ) giúp mình với ạ :3

Nguyễn Lê Phước Thịnh
4 tháng 4 2022 lúc 7:17

uses crt;

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

i,n,t,dem:integer;

begin

clrscr;

readln(n);

for i:=1 to n do readln(a[i]);

t:=0;

for i:=1 to n do t:=t+a[i];

writeln(tb/n:4:2);

dem:=0;

for i:=1 to n do 

 if i mod 2=0 then dem:=dem+1;

writeln(dem);

readln;

end.

Bình luận (0)

Các câu hỏi tương tự
Quỳnh Như
Xem chi tiết
Quỳnh Như
Xem chi tiết
Yeu DUong nhat
Xem chi tiết
QUANH
Xem chi tiết
Nguyễn Cảnh Hùng
Xem chi tiết
❤X༙L༙R༙8❤
Xem chi tiết
Thị Yến Nhi Trịnh
Xem chi tiết
Huỳnh Tiến Thiên
Xem chi tiết
Hải Hà
Xem chi tiết