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

Сколько пятизначных чисел в шестнадцатеричной системе счисления, которые не начинаются с еденицы и не оканчиваются на четную цифру существует?

Показать ответ
Ответ:
gidfgwlr
gidfgwlr
07.06.2020 23:24

Я так понимаю, что "номер максимального элемента" это на самом деле индекс.(иначе было бы написано "значение максимального элемента") Не забываем, что индексация массива ничинается с нуля.

 

#include <iostream>
using std::cout;
using std::endl;
#include <cstdlib>
using std::rand;
using std::srand;
#include <ctime>
using std::time;

int main()
{
    int a[15];
    int largestIndex = 0, counter = 0;

    srand(time(0));

    for(int i = 0; i < 15; i++)
    {
        a[i] = rand() % 21 - 10;

        if(a[i] < 0)
        {
            counter++;
        }
        if(a[largestIndex] < a[i])
        {
            largestIndex = i;
        }

        cout << a[i] << ' ';
    }

    cout << "\nThe index of the largest number = " << largestIndex
        << "\nThe number of negative elements = " << counter << endl;

   return 0;
}

 

P.S. В другом ответе решение неверное.


Тема : одномерный массив 1)составить текст программы 2)нарисовать блок схему дан массив из 15 чисел.
0,0(0 оценок)
Ответ:
qnorri
qnorri
29.04.2022 13:59

Program pr;

uses crt;

Var a, b, c,x1,x2,x3:integer;

Begin

Writeln('Введите a, b, c');

readln(a, b, c);

if (a<=b) and (b<=c) then

        Begin

              a:=a*a*a;

              b:=b*b*b;

              c:=c*c*c;
              Writeln(a);
              Writeln(b);
              Writeln(c);

        end;

if (a>b) and (b>c) then

Begin

a:=a*(-1);

b:=b*(-1);

c:=c*(-1);
Writeln(a);
Writeln(b);
Writeln(c);
end

 

 

 

else

if (a<b) and (a<c) then Begin b:=a; c:=a; Writeln(a); Writeln(b); Writeln(c); end;

if (b<a) and (b<c) then Begin a:=b; c:=b; Writeln(a); Writeln(b); Writeln(c); end;

if (c<a) and (c<b) then Begin a:=c; b:=c; Writeln(a); Writeln(b); Writeln(c); end;

readln;
end.

0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота