7/ in ra màn hình:

KQ la: 15

8/

program oken;

uses crt;

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

      i,n,max:integer;

begin

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('max: ',max);

readln;

end.

Câu 7: KQ la: 15

Câu 8:

Program FNG;
Uses crt;
Var A: array[1..1000] of longint;
    n,i,max: longint;
Begin
        Clrscr;
        Write('Nhap n: '); 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 A[i]>max then max:=A[i];
        Write('Max = ',max);
        Readln
End.