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

6.Нажатие правой клавишей мыши на иконке какого-либо инструмента на панели инструментов:. Один вариант. Показывает данные по выбранному инструменту

Увеличивает размер и интенсивность выбранного инструмента

Показывает дополнительные инструменты, относящиеся к выбранному инструменту

Устанавливает этот инструмент инструментом по умолчанию

👇
Ответ:
a1b2c5612z
a1b2c5612z
03.06.2023

Показывает данные по выбранному инструменту

4,7(83 оценок)
Открыть все ответы
Ответ:
Wikwsejjj
Wikwsejjj
03.06.2023
Const
   N = 33;
Var
   A:array[1..N] of integer;
   i:integer;
Begin
Randomize;
Write('Исходный массив:');
For i:= 1 to N do
    Begin
    A[i]:=random(100000)-50000;
    Write(' ',A[i]);
    End;
WriteLn;
WriteLn;
Write('Трёхзначные числа:');
For i:= 1 to N do
    if (99<Abs(A[i]))and(Abs(A[i])<1000) then Write(' ',A[i]);
WriteLn;
Write('Номера четырёхзначных чисел:');
For i:= 1 to N do
    if (999<Abs(A[i]))and(Abs(A[i])<10000) then Write(' ',i)
End.

Пример:
Исходный массив: 12916 46699 20251 -36637 -14335 -33817 -25279 -5819 -6258 23375 15258 1264 10987 42877 9875 3515 -22647 -791 47876 -319 -23437 -43546 -46174 -29378 -17999 -37325 -10130 -38120 -40079 -12188 -34612 -17302 28074

Трёхзначные числа: -791 -319
Номера четырёхзначных чисел: 8 9 12 15 16
4,5(78 оценок)
Ответ:
esketit1
esketit1
03.06.2023
Первый вариант программы:
Const
   N = 5;
Var
   A:array[1..N] of integer;
   i:integer;
   S:real;
Begin
Randomize;
S:=0;
Write('Исходный массив:');
For i:= 1 to N do
    Begin
    A[i]:=random(21)-10;
    Write(' ',A[i]);
    S:=S+A[i];
    End;
WriteLn;
WriteLn('Сумма его элементов: ',S);
End.

Пример:
Исходный массив: -6 -9 8 7 1
Сумма его элементов: 1

Второй вариант программы:
Const
   N = 13;
Var
   A:array[1..N] of integer;
   i,S,B:integer;
Begin
Randomize;
S:=0;
Write('Исходный массив:');
For i:= 1 to N do
    Begin
    A[i]:=random(21)-10;
    Write(' ',A[i]);
    End;
WriteLn;
Write('Введите номера пяти элементов: ');
For i:= 1 to 5 do
    Begin
    Read(B);
    S:=S+A[B];
    End;
WriteLn('Их сумма равна: ',S);
End.

Пример:
Исходный массив: 0 -9 6 4 -7 -1 9 -7 -2 -4 -6 4 -1
Введите номера пяти элементов: 3 4 7 12 1
Их сумма равна: 23
4,7(17 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ