Желательно решить на c++клуб юных хакеров организовал на своем сайте форум. форум имеет следующую структуру: каждое сообщение либо начинает новую тему, либо является ответом на какое-либо предыдущее сообщение и принадлежит той же теме. после нескольких месяцев использования своего форума юных хакеров заинтересовал вопрос - какая тема на их форуме наиболее популярна. им выяснить это.входные данныев первой строке вводится целое число n - количество сообщений в форуме (1 < = n < = 1000). следующие строки содержат описание сообщений в хронологическом порядке. описание сообщения, которое представляет собой начало новой темы, состоит из трех строк. первая строка содержит число 0. вторая строка содержит название темы. длина названия не превышает 30 символов. третья строка содержит текст сообщения. описание сообщения, которое является ответом на другое сообщение, состоит из двух строк. первая строка содержит целое число - номер сообщения, ответом на которое оно является. сообщения нумеруются, начиная с единицы. ответ всегда появляется позже, чем сообщение, ответом на которое он является. вторая строка содержит текст сообщения. длина каждого из сообщений не превышает 100 символов.выходные данныевыведите название темы, к которой относится наибольшее количество сообщений. если таких тем несколько, то выведите первую в хронологическом порядке
var
c, a: array[1..20] of integer;
i: integer;
begin
write('Первый массив ');
for i := 1 to 20 do begin
c[i] := i * (-5);
write(c[i], ' ');
end;
writeln;
write('Преобразованный массив ');
for i := 1 to 20 do begin
a[i] := c[20 - i + 1];
write(a[i], ' ');
end;
end.
ИЛИ Программа не использующая два массива, а просто переворачивающая первый
var
c: array[1..20] of integer;
i: integer;
begin write('Первый массив ');
for i := 1 to 20 do begin
c[i] := i * (-5);
write(c[i], ' ');
end;
writeln;
write('Преобразованный массив ');
for i := 20 downto 1 do write(c[i], ' ');
end.
Обе программы работают!
n=5;
Var
ar:array[1..n] of integer;
ar2:array[1..n] of integer;
i,k:integer;
function prost(a:integer):boolean;
var i:integer;
b:boolean;
begin
b:=true;
for i:=2 to a div 2 do
if a mod i=0 then
begin;
b:=false;
break;
end;
if a=1 then b:=false;
prost:=b;
end;
begin;
randomize;
k:=0;
for i:=1 to n do
begin;
ar[i]:=random(101);
write(ar[i]:4);
end;
writeln;
for i:=1 to n do
if prost(ar[i]) then
begin;
inc(k);
ar2[k]:=ar[i];
write(ar2[k]:4);
end;
end.