Вот на языке Python:
from random import randint
count = int(input('Введите длину последовательности => '))
massiv = [randint(1, 100) for i in range(count)]
print('Массив', massiv)
num = int(input('Введите какое число надо найти => '))
position = 1
for i in massiv:
if i == num:
print('Число имеет',position, 'позицию')
exit()
position += 1
print('Такого числа там нет')
Вопрос только насчёт номера числа. Если тебе надо считать с 0, 1 и т.д., то измени position с 1 на 0.
Я сделал, чтобы счёт числа шёл с одного, дальше сам решай.
var
x, y: integer;
n: integer;
sum: integer;
mindif: integer;
f: text;
begin
assign(f,'C:\27-A.txt');
reset(f);
readln(f, n);
sum := 0;
mindif := 20001;
while not eof(f) do begin
readln(f, x, y);
if x > y then
sum := sum + x
else
sum := sum + y;
if (abs(x - y) < mindif) and (abs(x-y) mod 3 <> 0) then mindif := abs(x-y);
end;
if sum mod 3 <> 0 then
writeln(sum)
else
writeln(sum - mindif);
end.
Объяснение:
СЕРОЦОРПСИК
СЕРОЦОРПС
РПССЕРОЦО
РПССЕЦОРО
РОССЕЦОРП
ПРОЦЕССОР