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.

0 bình luận về “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.”

1. 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.

   Bình luận

2. 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.

   Bình luận