Câu 7: 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.

Câu $7$ : chương trình sau sẽ in ra dòng chữ "KQ la 15"

Program Hotboy;

Uses crt;

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

I,n : byte;

Max: integer;

S:real;

Begin

Clrscr ;

Write('nhao so phan tu trong day'); 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

Begin

If A[i] > max then max:=A[i];

Writeln('So lon nhat  trong mang la',max); 

End; 

Readln

End.