Дана программа на языке Паскаль. Переделать её на язык С++
Var n, i, j, t: integer;
Count, Names: array[1..16] of integer;
Begin
For i := 1 to 16 do
begin
Count[i] := 0;
Names[i] := i;
end;
ReadLn(N); {
Считываем количество голосов}
for i:=1 to N do
begin
ReadLn(t); {
считали очередную пару}
Count[t] := Count[t] + 1;{
подсчитываем её}
end;
{Сортируем массивы
Names и Count в порядке убывания
значений массива
Count}
for i:=16 downto 2 do
for j:=2 to i do if Count[j-1]<Count[j] then
begin
t:=Count[j]; Count[j]:=Count[j-1]; Count[j-1]:=t;
t:=Names[j]; Names[j]:=Names[j-1]; Names[j-1]:=t;
end;
for i:=1 to 16 do
if Count[i] > 0 then
writeLn(Names[i], ' ', Count[i]);
end.
Предмет:
ИнформатикаАвтор:
oliverep0cАвтор:
graciechangАвтор:
jaguarsolisДобавить свой ответ
Предмет:
ИнформатикаАвтор:
rocket93Ответов:
Смотреть
сколько литров водорода выделится приразложении водой 5,5 гидрида кальция при t=17 C и давлении 101,3 кПа
Предмет:
ХимияАвтор:
tobiasweissОтветов:
Смотреть
Предмет:
ГеометрияАвтор:
grizzlygallagherОтветов:
Смотреть