Поиск** PYTHON
C [N] дан единый массив целых чисел (1sns30). массив
-00...Заполни случайными целыми числами между 100. в массиве-расположены
те, которые выводят на экран индексы своих элементов.
№
1 8
Input. txt
2368
Output. txt
-75 60 32-97 -9 12 -3 97

Алгоритм – это понятное и точное предписание исполнителю выполнить конечную последовательность команд, приводящую от исходных данных к искомому результату. Алгоритмы окружают нас повсюду: кулинарный рецепт - алгоритм приготовления блюда, инструкция по использованию стиральной машины и т.д.
Свойства алгоритмов. Понятность – каждый шаг представлен в форме, понятной исполнителю (на его языке). Дискретность – разбиение на отдельные элементарные шаги. Однозначность - детерминированность, определённость формулировок, не допускающая разных толкований (исполнителю должно быть точно понятно, какой шаг выполнять дальше). Результативность – получение результата после конечного числа шагов, предусматривающее все возможные варианты (последовательность шагов не должна быть бесконечной).
записи алгоритмов словесный; табличный; графический; программа на алгоритмическом языке.
Исполнителем алгоритма может быть не только человек, но и автоматическое устройство (реальное или воображаемое). В этом случае шаги алгоритма часто называют командами и вводят их в устройство в той форме, в которой оно сможет их обрабатывать. Языки алгоритмического управления устройствами являются формальными. Алгоритм, представленный на языке устройства, называется программой для этого устройства.
Исполнителя характеризует: Системой команд Исполнителя называется совокупность всех команд, которые может выполнить Исполнитель. Совокупность всех действий, которые он может выполнить в ответ на эти команды, называется системой допустимых действий Исполнителя. Среда – это обстановка, в которой работает исполнитель Элементарное действие – действие, совершаемое исполнителем после вызова команды. Отказы. Возникают при вызове команды в недопустимом для данной команды состоянии среды.

const n=10;

var a:array [1..n] of real;

i,mi:integer;

s,m,p:real;

begin

write('Массив: ');

for i:=1 to n do

begin

a[i]:=random*20-10;

write(a[i]:0:3,' ');

if a[i]>0 then s:=s+2*a[i];

end;

writeln;

m:=a[1];

mi:=1;

for i:=1 to n do  if a[i]>m then

begin

m:=a[i];

mi:=i

end;

p:=1;

for i:=mi to n do  if a[i]<0 then p:=p*2*a[i];

writeln ('Удвоенная сумма всех положительных элементов массива: ',s:0:3);

if p=1 then writeln ('Отрицательных чисел после максимального элемента нет')

else writeln ('Удвоенное произведение всех отрицательных элементов массива, расположенных после максимального элемента: ',p:0:3);

end.