Невозможность или сложность создания реальной физической модели
var
i, n, m: integer;
a: array of integer;
begin
write('Размер массива? ');
read(n);
setlength(a, n);
writeln('Введи элементы массива');
for i := 0 to n - 1 do
read(a[i]);
write('Что искать? ');
read(m);
for i := 0 to n - 1 do
if a[i] = m then
begin
write('Найден элемент с номером ', i + 1);
exit;
end;
write('Нет такого элемента');
end.
X - сумма через год
Формула для вычисления процента от общей суммы = ((n*p)/100)
Следовательно, x = n+((n*p)/100)
===== PascalABC.NET =====
begin
var n := ReadInteger('n =');
var a :=ReadArrInteger(n); // бессмысленное занятие
a := ArrRandom(n, 1, 50);
a.Println
end.
Решение показано во вложении