Bài 11: Kiểu mảng

Chiu Chiu

HELPP MEE HỠI NHỮNG HSG TIN PLSSS <3

Cho var a:array[52..101] of integer;

?..Hãy viết chương trình: tính hiệu các phần tử có SỐ THỨ TỰ CHẴN.

Nguyễn Lê Phước Thịnh
5 tháng 3 2021 lúc 21:40

uses crt;

var a:array[52..101]of integer;

i,n,t:integer;

begin

clrscr;

repeat

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

until (51<n) and (n<102);

for i:=52 to n do 

 begin

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

end;

t:=0;

for i:=52 to n do 

  if i mod 2=0 then t:=t+a[i];

writeln(t);

readln;

end.

Bình luận (1)

Các câu hỏi tương tự
Ngô xuân tuyền
Xem chi tiết
Anh Lê duy
Xem chi tiết
Anh Lê duy
Xem chi tiết
Huy Lý
Xem chi tiết
Benny
Xem chi tiết
Phan uyển nhi
Xem chi tiết
Nguyễn Văn Tú
Xem chi tiết
Lê thị khánh chi
Xem chi tiết
Thanh sang
Xem chi tiết