làm ở ARRAY nha mọi người ( ai giúp em vote 5* ) Bài 1. Viết chương trình - Nhập một dãy số nguyên có N phần tử. - Xuất ra màn hình dãy số vừa nhập. - Tính tổng các phần tử chẵn có trong dãy trên và xuất kết quả ra màn hình. Bài 2. Viết chương trình - Nhập một dãy số nguyên có N phần tử. - Xuất ra màn hình dãy số vừa nhập. - Tính tổng các phần tử âm có trong dãy trên và xuất kết quả ra màn hình. Bài 3. Viết chương trình - Nhập một dãy số nguyên có N phần tử - Xuất ra màn hình dãy số vừa nhập. - Xuất ra màn hình số lớn nhất trong dãy trên.

bài 1:

program oken;

uses crt;

var a: array [1..10000] of longint;

      i,n,sum:longint;

begin

clrscr;

write('nhap so phan tu cua mang: '); readln(n);

for i:=1 to n do

    begin

         write('a[',i,']: '); readln(a[i]);

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

    end;

writeln('tong cac so chan cua mang: ',sum);

readln;

end.

bài 2:

program oken;

uses crt;

var a: array [1..10000] of longint;

      i,n,sum:longint;

begin

clrscr;

write('nhap so phan tu cua mang: '); readln(n);

for i:=1 to n do

    begin

         write('a[',i,']: '); readln(a[i]);

          if a[i] < 0 then sum:=sum+a[i];

    end;

writeln('tong cac so am cua mang: ',sum);

readln;

end.

bài 3:

program oken;

uses crt;

var a: array [1..10000] of longint;

      i,n,max:longint;

begin

clrscr;

write('nhap so phan tu cua mang: '); readln(n);

for i:=1 to n do

    begin

         write('a[',i,']: '); readln(a[i]);

     end;

for i:=1 to n do

    begin

    write(a[i],' ');

    end;

max:=a[1];

for i:=2 to n do

   if max<a[i] then max:=a[i];

writeln('max=',max);

readln;

end.