Решил создать себе сайт но он не как не может вырасти в поисковой выдаче, ссылочная масса вроде как - id1552887520220325 от zaper886 25.03.2022 12:05

Question

Информатика: Решил создать себе сайт но он не как не может вырасти в поисковой выдаче, ссылочная масса вроде как есть но результатов нет( Соответственно падает подозрение что что-то не так сделано с внутренней оптимизацией. Мой сайт с фильмами https://vokinohd.site ?

zaper886 · Accepted Answer

Var i,s,p,max:integer;
a:array[1..10] of integer; // описание переменных
begin
s:=0;
p:=1;
max:=1;
for i:=1 to 10 do // Цикл в котором находится:
begin
a[i]:=random(100); // генерация рандом чисел
write(a[i]:5); // вывод всего массива
s:=s+a[i]; // нахождение суммы
p:=p*a[i]; // нахождение произведения
end;
for i:=1 to 10 do // цикл для нахождения максимального в массиве
if a[i]>max then max:=a[i];
writeln;
writeln('Summa: ',s); // Все что ниже вывод резельтатов.
writeln('Proizvedenie: ',p);
writeln('Maximalnoe: ',max);
end.

MOGZ ответил