М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
vladimirdement
vladimirdement
14.01.2020 07:58 •  Информатика

Дана программа на языке паскаль. переделать её на язык с++ 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] 0 then writeln(names[i], ' ', count[i]); end.

👇
Ответ:
dayana20072
dayana20072
14.01.2020
Надоело при копировании из блокнота вручную ставить пробелы. Бред.
4,4(29 оценок)
Ответ:
7gklass2017
7gklass2017
14.01.2020
#include <iostream>
using namespace std;

int main()
{
    int Count[16],Names[16];
    for (int i=0; i<16; i++)
    {
        Count[i] = 0;
        Names[i] = i + 1;
    }
    int n,t;
    cin >> n;
    for (int i=1; i<=n; i++)
    {
        cin >> t;
        Count[t] = Count[t] + 1;
    }
    for (int i=15; i>0; i--)
        for (int j=1; j<i; j++)
            if (Count[j-1] < Count[j])
            {
                t = Count[j]; Count[j] = Count[j-1]; Count[j-1] = t;
                t = Names[j]; Names[j] = Names[j-1]; Names[j-1] = t;
            }
    for (int i=0; i<16; i++)
        if (Count[i] > 0)
            cout <<Names[i] <<' ' <<Count[i] <<endl;
    return 0;
}
Только при вводе t помни, что индексация массив в С++ начинается с нуля, соответственно последний элемент будет иметь индекс N-1.
4,6(43 оценок)
Открыть все ответы
Ответ:
guljanatkabdrasheva
guljanatkabdrasheva
14.01.2020
Длина исходной цепочки символов 61428 равна 5. Она нечетна, значит, из строки удаляем последний символ. Получилось 6142. 
Переставляем символы в обратном порядке. Получилось 2416.
Приписываем справа к цепочке эту же цепочку. Получилось 24162416.
Последний символ цепочки 6 - четная цифра, значит, удаляем его. Получилось 2416241.
Длина исходной цепочки символов 2416241 равна 7. Она нечетна, значит, из строки удаляем последний символ. Получилось 241624.
Переставляем символы в обратном порядке. Получилось 426142.
Приписываем справа к цепочке эту же цепочку. Получилось 426142426142.
Последний символ цепочки 2 - четная цифра, значит, удаляем его. Получилось 42614242614.
4,6(55 оценок)
Ответ:
hadisvv99
hadisvv99
14.01.2020
1.                                                            

program raf105;

const

 n = 3; //Размер матрицы

var

 ar: array[1..n,1..n] of integer;

 n_sum,a,b,ab_c,min_sum,sum,min_pos,i,j: integer;

begin

write('Введите 2 числа (A, B): ');

readln(a,b);

for i:=1 to n do

begin

 writeln('Заполните столбец ',i);

 for j:=1 to n do

 begin

   readln(ar[i,j]);

   if (ar[i,j] mod a = 0) or (ar[i,j] mod b = 0)

     then ab_c+= 1;

 end;

end;

writeln;

write('А) Суммы нечётных элементов по столбцам: ');

for i:=1 to n do

begin

 n_sum:= 0;

 for j:=1 to n do

 begin

   if ar[i,j] mod 2 <> 0

     then n_sum+= ar[i,j];

 end;

 write(n_sum,' ')

end;

writeln;

writeln('В) Количество элементов кратных ',a,' или ',b,': ',ab_c);

min_sum:= 10000;

sum:= 10000;

for i:=1 to n do

begin

 if sum<min_sum

   then begin

     min_sum:= sum;

     min_pos:= i-1;

   end;

 sum:= 0;

 for j:=1 to n do

   sum+= ar[i,j];

end;

writeln('С) Минимальная сумма элементов у столбца с номером: ',min_pos);

end.

2.                                                            

program raf105;

const

 n = 3; //Размер матрицы

var

 a: array[1..n,1..n] of integer;

 b: array[1..n*n] of integer;

 counter,i,j: integer;

begin

for i:=1 to n do

begin

 writeln('Заполните столбец ',i);

 for j:=1 to n do

 begin

   readln(a[i,j]);

   if a[i,j] mod 3 = 0

     then begin

       counter+= 1;

       b[counter]:= a[i,j];

     end;

 end;

end;

writeln;

write('Массив элементов кратных трём: ');

for i:=1 to counter do

 write(b[i],' ');

end.

                                                             PascalABC 3.4.2
4,4(68 оценок)
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ