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

Первая строка окна текстового редактора называется под ней располагается большую часть окна текстового редактора занимает слева и над рабочим полем снизу и справа от рабочего поля находится которые позволяют просматривать весь текст,если его размеры больше размеров окна текстового редактора. то место, куда будет вводится следующий символ, указывает для изменения размера символа или типа символа существует соответствующее изображение инструмента, которое находится на _

👇
Ответ:
danilp18
danilp18
18.04.2021
1 ЗАГОЛОВОК   2 ПАНЕЛЬ ИНСТРУМЕНТОВ  3 "ПАЛЗУНКИ" ПРОКРУТКИ
4 МИГАЮЩЕЙ ВЕРТИКАЛЬНОЙ ПАЛОЧКОЙ 5 ПАНЕЛИ ИНСРУМЕНОТОВ
4,5(64 оценок)
Открыть все ответы
Ответ:
самира223
самира223
18.04.2021
Алг массив
нач
  цел N = 30
  целтаб a[1:N]
  цел i, k, b
  лог b1, b2
 
  нц для i от 1 до N
    вывод "a[",i,"] = "
    ввод a[i]
  кц
  вывод нс
 
  b1:=да
  b2:=да
  нц для i от 1 до N-1
    если a[i]>a[i+1] то
      b1:=нет
    все
    если a[i]<a[i+1] то
      b2:=нет
    все
  кц
  если b1=да то
      вывод "Массив упорядочен по возрастанию", нс
  все
  если b2=да то
      вывод "Массив упорядочен по убыванию", нс
  все

  k:=0
  нц для i от 1 до N
    если a[i]>9 то
      k:=k+1
    все
  кц
  вывод "k = ",k, нс

  нц для i от 1 до div(N,2)
    b := a[i]
    a[i] := a[div(N,2)+i]
    a[div(N,2)+i] := b
  кц

  вывод "Измененный массив:", нс
  нц для i от 1 до N
    вывод a[i], " "
  кц
кон
4,8(87 оценок)
Ответ:
milana6164
milana6164
18.04.2021
Var
A:array[1..1000,1..1000] of integer;
M,N,Min,Max:integer;
Begin
Write('M(1..1000) = ');
ReadLn(M);
Write('N(1..1000) = ');
ReadLn(N);
For var i:= 1 to M do
    Begin
    For var j:= 1 to N do
        Begin
        A[i,j]:=random(1,M*N);
        Write(A[i,j],' ')
        End;
    WriteLn;
    End;
Min:=A[M,N];
Max:=A[M,N];
For var i:= 1 to M do
    For var j:= 1 to N do
        Begin
        if Min>A[i,j] then Min:=A[i,j];
        if Max<A[i,j] then Max:=A[i,j]
        End;
WriteLn('Min(A) / Max(A) = ',Min/Max);
End.

Пример:

M(1..1000) = 3
N(1..1000) = 3
6 9 6
4 5 3
1 9 7
Min(A) / Max(A) = 0.111111111111111
4,7(65 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ