Bài 11: Kiểu mảng

CC

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.

NT
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ự
NT
Xem chi tiết
AD
Xem chi tiết
AD
Xem chi tiết
HL
Xem chi tiết
H24
Xem chi tiết
PN
Xem chi tiết
NT
Xem chi tiết
LC
Xem chi tiết
TS
Xem chi tiết