Viết ct tạo ngẫu nhiên mảng A gồm N số nguyên ( N<=100) với giá trị các phần tử có giá trị tuyệt đối ko vượt quá 200 a.xuất kết quả ra màn hình b.tính và xuất ra màn hình tổng giá trị tuyệt đối của các phần tử

uses crt;

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

i, N, S : integer;

begin

clrscr;

S := 0; randomize;

write('Nhap so phan tu : '); readln(N);

for i := 1 to N do

begin

a[i] := random(200) - random(200);

writeln('Phan tu thu ', i ,' : ', a[i]);

S := S + abs(a[i]);

end;

write('Tong S = ', S);

readln

end.

program oken;

uses crt;

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

      i,sum,n:byte;

begin

clrscr;

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

for i:=1 to n do

    begin

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

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

    end;

writeln('tong gttd: ',sum);

readln;

end.