1)

program ct;

uses crt;

var i,n,s:integer;

A:array[1..1000] of integer;

begin

clrscr;

write('nhap n:=');readln(n);

for i:=1 to n do

begin

write('nhap mang A[',i,']:=');readln(A[i]);

end;

s:=0;

for i:=1 to n do s:=s+A[i];

writeln('tong la:',s);

readln

end.

2)

program ct;

uses crt;

var i,n,s:integer;

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

begin

clrscr;

write('nhap n:=');readln(n);

for i:=1 to n do

begin

write('nhap mang A[',i,']:=');readln(A[i]);

s:=0;

for i:=1 to n do s:=s+A[i];

writeln('tong la:',s);

readln

end.

3)

program ct;

uses crt;

var i,n,Max:integer;

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

begin

clrscr;

write('nhap n:=');readln(n);

for i:=1 to n do

begin

write('nhap mang A[',i,']:=');readln(A[i]);

end;

Max:=A[1];

for i:=2 to n do

if Max<A[i] then Max:=A[i];

writeln('gia tri lon nhat la:',Max);

readln

end.

4)

program ct;

uses crt;

var i,n,Min:integer;

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

begin

clrscr;

write('nhap n:=');readln(n);

for i:=1 to n do

begin

write('nhap mang A[',i,']:=');readln(A[i]);

end;

Min:=A[1];

for i:=2 to n do

if Min>A[i] then Min:=A[i];

writeln('gia tri nho nhat la:',Min);

readln

end.

Bài 1:

program oken;
uses crt;
var n,i,s: 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]);
            s:=s+a[i];
        end;
    writeln('Tong mang: ',s);
    readln;
end.

Bài 2:

program oken; 
uses crt;
type gionhan= 1..99;
var n,i: gionhan;
    s: longint;
    a: array [gionhan] of integer;
begin
    clrscr;
    write('Nhap so phan tu cua mang: '); readln(n);
    for i:=1 to n do
        begin
            write('a[',i,']: ');
            readln(a[i]);
            s:=s+a[i];
        end;
    writeln('Tong mang vua nhap: ',s);
    readln;
end.

Bài 3:

program oken; 
uses crt;
var a: array [1..100] of integer;
    i,n,max: integer;
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;
    max:=a[1];
    for i:=2 to n do
        if max<a[i] then
            max:=a[i];
    writeln('So lon nhat: ',max);
    readln;
end.

Bài 4:

program oken; 
uses crt;
var a: array [1..100] of integer;
    i,n,min: integer;
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;
    min:=a[1];
    for i:=2 to n do
        if min>a[i] then
            min:=a[i];
    writeln('So nho nhat: ',min);
    readln;
end.