Question

Viết chương trình nhập mảng số thực, tìm số thực lớn nhất và vị trí của các số thực đó.

Answer 1

var     A:array[1..100] of real;max:real;i,n:integer;
begin
        readln(n);
        for i:=1 to n do readln(A[i]);
        max:=A[1];
        for i:=2 to n do if A[i]>max then max:=A[i];
        writeln(max);
        for i:=1 to n do if A[i]=max then write(i,' ');
        readln;
end.