Câu 6

var n,i,max: longint;

      a: array [1..250] of longint;

begin

write('Nhap n: '); readln(n);

for i:=1 to n do

read(a[i]);

max:=-maxlongint;

for i:= 1 to n do

if a[i] > max then 

max:=a[i];

write('So lon nhat la: ',max);

readln;

end.

Câu 7:

var n:longint;

begin

write('Nhap n: ');readln(n);

if sqrt(n) = trunc(sqrt(n)) then write('La so chinh phuong')

else write('Khong phai la so chinh phuong');

readln;

end.

Bài 6:

Program BTT;
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:=1 to n do
                If A[i]>max then max:=A[i];
        Write(max);
        Readln
End.

Bài 7:

Program BTT;
Uses crt;
Var A: array[1..1000] of longint;
    n,i,max: longint;

Function CP(a: longint): boolean;
Begin
        If a=sqr(trunc(sqrt(a))) then exit(true);
                                      exit(false);
End;

Begin
        Clrscr;
        Write('Nhap n: '); Readln(n);
        For i:=1 to n do
        Begin
                Write('A[',i,'] = ');
                Readln(A[i]);
        End;

        For i:=1 to n do
                If CP(A[i]) then Write(A[i],' ');
        Readln
End.