bài 1:Tính tổng các phần tử của mảng số nguyên Bài2: Tính tổng các phần tử thỏa mãn yêu cầu là các phần tử chia hết cho 2 hoặc 7

Bài 1:

uses crt;
var i,n,tong:longint; a:array[1..1000000]of longint;
begin
clrscr;
  write('Nhap so phan tu: ');readln(n);
   for i:=1 to n do
      begin
         write('a[',i,']=');readln(a[i]);
         inc(tong,a[i]);
      end;
   writeln('Tong cac phan tu cua mang: ',tong);
readln
end.

Bài 2:

uses crt;
var i,n,tong:longint; a:array[1..1000000]of longint;
begin
clrscr;
  write('Nhap so phan tu: ');readln(n);
   for i:=1 to n do
      begin
         write('a[',i,']=');readln(a[i]);
         if (a[i] mod 2=0)or(a[i] mod 7=0) then inc(tong,a[i]);
      end;
   writeln('Tong: ',tong);
readln
end.

Bài 1:

program tinh_tong;

uses crt;

var A:array[1..100] of integer;

      n,i,t:integer;

begin

       clrscr;

       write('Nhap so luong phan tu: ');   readln(n);

       t:=0;

       for i:=1 to n do

                begin

                        write('Nhap so thu ',i,': ');  readln(A[i]);

                        t:=t+A[i];

                end;

       write('Tong cac phan tu cua day la: ',t);

       readln;

end.

Bài 2:

program tinh_tong;

uses crt;

var A:array[1..100] of integer;

      n,i,t:integer;

begin

       clrscr;

       write('Nhap so luong phan tu: ');   readln(n);

       t:=0;

       for i:=1 to n do

                begin

                        write('Nhap so thu ',i,': ');  readln(A[i]);

                        if (A[i] mod 2=0) or (A[i] mod 7=0) then t:=t+A[i];

                end;

       write('Tong cac phan tu chia het cho 2 hoac cho 7 cua day la: ',t);

       readln;

end.