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.
2 câu trả lời
uses crt;
var n,i,hieu:longint; a:array[52..101]of integer;
begin
clrscr;
write('Nhap so phan tu: ');readln(n);
for i:=1 to n do
begin
write('a[',52+i-1,']=');readln(a[52+i-1]);
end;
hieu:=0;
for i:=52 to 52+n-1 do if i mod 2=0 then dec(hieu,a[i]);
writeln('Hieu: ',hieu);
readln
end.
uses crt;
var a: array[1...100] of integer;
i,n,hh: longint;
begin
clrscr;
write ('nhap so phan tu: '); readln (n);
for i:=1 to n
begin
write ('nhap a[',i,']: '); readln (a[i]);
if i mod 2=0 then hh:=hh-a[i];
end;
writeln ('hieu la: ',hh);
readln;
end.
