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

Все 5-буквенные слова, составленные из букв И, К, Р, А, записаны в алфавитном порядке. Вот начало списка:
И
К
Р
АААИА
Укажите номер слова АКИРИ.
Напишите в ответ число.

👇
Открыть все ответы
Ответ:
2) каждое из чисел х у z положительно
 ( x>0) ∧ (y>0) ∧ (z>0)
1) х у z равны между собой
   (x=y)∨ (x=z) ∨ (y=z)
3) хотя бы одно из чисел х у z отрицательно 
(x<0)∨ (z<0) ∨ (y<0)
4) хотя бы одно из чисел х у z не является положительным
(x<0)∨ (z>0) ∨ (y>0)
5) только одно из чисел х у z не больше 10
 (( x<=10) ∧ (y>10) ∧ (z>10)) ∨ ( ( x>10) ∧ (y<=10) ∧ (z>10)) ∨ ( ( x>10) ∧ (y>10) ∧ (z<=10))  
6) ни одно из чисел х у z не равно 104
¬(x=104)∧ (¬(y=104))∧( ¬(z=104))
ВТОРОЕ ЗАДАНИЕ ПРОВЕРЬ УСЛОВИЕ ЧТО-ТО В НЕМ НЕВЕРНО
4,6(79 оценок)
Ответ:
anna16191
anna16191
19.04.2023
1)

Const
   N = 33;
Var
   A:array[1..N] of integer;
   i,m:integer;
Begin
{Заполнение массива}
For i:= 1 to N do
    Begin
    A[i]:=random(21)-10;
    Write(A[i],' ')
    End;
WriteLn;
{Поиск минимального элемента}
m:=1;
For i:= 2 to N do
    if A[i]<=A[m] then m:=i;
WriteLn('Min = A[',m,'] = ',A[m]);
End.

Пример:
6 0 -4 10 2 -4 -3 -9 10 -5 1 0 -8 2 2 9 -3 -6 8 10 -6 -9 9 -2 -6 2 -1 -2 6 6 -2 -3 -4
Min = A[22] = -9

2)

Const
   N = 33;
Var
   A:array[1..N] of integer;
   i,M,k:integer;
Begin
{Заполнение массива}
For i:= 1 to N do
    Begin
    A[i]:=random(21)-10;
    Write(A[i],' ')
    End;
WriteLn;
{Поиск наибольшего элемента}
M:=A[1];
For i:= 2 to N do
    if A[i] > M then M:=A[i];
{Поиск кол-ва максимальных элементов}
k:=0;
For i:= 1 to N do
    if A[i] = M then k:=k+1;
WriteLn('k_Max = ',k)
End.

Пример:
-10 3 10 -10 1 3 -9 -1 10 0 -10 3 -10 10 -4 -2 -8 3 10 -10 -9 3 -1 -2 9 -5 -6 -5 -5 -5 2 0 8
k_Max = 4
4,8(11 оценок)
Новые ответы от MOGZ: Информатика
Полный доступ к MOGZ
Живи умнее Безлимитный доступ к MOGZ Оформи подписку
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ