Question

VCT nhập vào một dayn số nguyên. in ra màn hình số lớn nhấttrong dãy số đó và vị trícủa số đó trong dãy

Answer 1

program bai1;

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

i,n,max:longint;

begin

wrtie('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];

writeln('So lon nhat la ',max);

write('Vi tri la ');

for i:=1 to n do

if a[i]=max then write(i,' ');

readln

end.