1) Так как сказано: "<span>предшествующего И предыдущего</span>", то начальный и конечный элементы массива не рассматриваются.
2) Сначала создаётся массив содержащий цифры числа, после чего происходит поиск индекса наибольшего числа. Метод Array.Reverse() переворачивает массив.
Решения в прикреплении так как при вставке кода пропадает вся табуляция.
36864 кб = 36Мб 864 кб = 36 Мб
var
r,i : integer;
begin
randomize;
r := 0;
for i := 1 to 3 do
r := r + random(25);
writeln (r);<span>
end.</span>
#include <iostream>
int main(){ int a, max, num; std::cin>>num; while (num) { num--; std::cin>>a; if ((a%5 == 0)&&(a%7 != 0)&&(a > max)) max = a; } std::cout<<a;}
Uses crt;
const
n:integer = 10;
var b: array[1..n] of byte;
a:integer;
d:byte;
begin
for d:=1 to 10 do b[d]:= random(10)+1;d:=1;
a:=1;
while (d < n) do begin a:=a*b[d]; d:=d+2;
end;
writeln(a);
<span>end.</span>