Question

Помогите пожалуйста составить программу. НА ПАСКАЛЕ.ВТОРОЙ ВАРИАНТ.50 баллов даю

Answer 1

2) 
var n,max,nom,i:integer;
b: array [1..1000] of integer;
begin
//создание какого то массива
readln(n);
max:=b[1]; nom:=1;
for i:=2 to n do
 if b[i]>max then begin max:=b[i]; nom:=i; end;

writeln(max,nom);
end.