HG

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

NT
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ự
QN
Xem chi tiết
QN
Xem chi tiết
YN
Xem chi tiết
H24
Xem chi tiết
NH
Xem chi tiết
H24
Xem chi tiết
TT
Xem chi tiết
HT
Xem chi tiết
HH
Xem chi tiết