Зчого складається векторне зображення

Объяснение:

Из задания не совсем ясно, необходимо ли в программе производить ввод массиве, если нет, то решение следующее:

# Максимальный элемент массива

_max = max(d)

# Порядковый номер элемента

_index = d.index(_max)

# Вывод

print(_max, _index)

Если запрещено использовать встроенные функции, то:

# первый элемент - максимальный

_max = d[0]

_index = 0

# Цикл по всем элементам

for i, x in enumerate(d):

# Если элемент больше максимального

if x > _max:

_max = x

_index = i

# Вывод

print(_max, _index)

Если необходимо произвести и ввод, то в начале задачи надо дописать:

n = input('Введите n: ')

d = []

for x in range(n):

d.append(input('Введите число: '))

//pascal abc.net 3.2 сборка 1318 var   f: text;   n: integer;   s: string;     procedure voteraz(f: text; n: integer; s: string);   begin     writeln('было: '); assign(f,'input.txt'); reset(f); while not(eof(f)) do   begin     read(f,n);     write(n,' ');     if n> 7 then n: =n*(n div 7);     s: =s+inttostr(n)+' ';   end; delete(s,length(s),1); close(f); assign(f,'input.txt'); rewrite(f); write(f,s); close(f); writeln; writeln('стало: '); write(s); writeln; end; function votedva(f: text; n: integer; s: string): integer;   begin     writeln('было: '); assign(f,'input.txt'); reset(f); while not(eof(f)) do   begin     read(f,n);     write(n,' ');     if n> 7 then n: =n*(n div 7);     s: =s+inttostr(n)+' ';   end; delete(s,length(s),1); close(f); assign(f,'input.txt'); rewrite(f); write(f,s); close(f); writeln; writeln('стало: '); write(s); writeln; votedva: =0; end;     begin voteraz(f,n,s); votedva(f,n,s); end. начальное содержимое input.txt: 81 5 6 пример работы программы: было: 81 5 6  стало: 891 5 6 было: 891 5 6  стало: 113157 5 6