В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
К123
К123
16.11.2020 02:34 •  Информатика

2) Создайте таблицу для кодирования путём прямой замены. Закодируйте своё имя и
фамилию
1 2 3 | 4 | 5 | 6 | 7 | 8 8 9 10 11
АБ
в г д е ё ж зии
12 13 | 14 | 15 | 16 | 17 | 18 19 20 21 22
кл лм но пP C ту
23 24 25 26 27 28 29 30 31 32 33
хц ч ш щ ъ
э ю я
Ы​

Показать ответ
Ответ:
polly132
polly132
05.10.2021 04:31
#include <iostream>

using namespace std;

int main()
{
    int n;
    int counter = 0;

    cout << "Vvedite kilichestvo elementov: " << endl;
    cin >> n;
    int *massiv = new int[n];
    for (int i = 0; i < n; i++) {
        cout << "Vvedite " << i + 1 << " element: ";
        cin >> massiv[i];
        if (massiv[i] % 2 != 0) {
            counter += 1;
        }
    }
    cout << "Kolichestvo nechetnqh elementov = " << counter << endl;

    return 0;
}
0,0(0 оценок)
Ответ:
AlexSashka2003
AlexSashka2003
06.03.2023 08:38
// PascalABC.NET 3.3, сборка 1573 от 04.11.2017
// Внимание! Если программа не работает, обновите версию!

№1

begin
  var a:=ArrGen(20,i->i+1); a.Println;
end.

Пример
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20

№2

begin
  var a:=ArrRandom(20,-99,99); a.Println;
  Writeln('П = ',a.Aggregate(BigInteger(1),(x,y)->x*y))
end.

Пример
92 6 39 -33 34 -22 -97 52 58 55 -42 -59 -15 -19 -91 76 -69 82 -19 -69
П = -309778851231495493804367495884800

№3

begin
  var a:=ArrRandom(40,-99,99); a.Println;
  Writeln('Номер максимального элемента = ',a.IndexMax+1)
end.

Пример
-30 85 -57 -5 -64 20 48 83 19 -32 -56 10 21 83 78 20 89 -5 71 -78 -59 88 -10 -94 -80 -58 24 37 -1 66 -71 -9 43 55 -14 -79 -33 -19 -34 68
Номер максимального элемента = 17
0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота