Есть ответ 👍

Запишіть по три приклади переваг і недоліків використання онлайн редакторів створення електронних документів

287
500
Посмотреть ответы 1

Ответы на вопрос:

Besta555
4,5(18 оценок)

Код pascal: первая программа: const     n = 13; var     a,b: array[1..n] of integer;     i,j,m: integer;     k: byte; begin randomize; write('исходный массив: '); for i: = 1 to n do       begin       a[i]: =random(n);       write(' ',a[i])       end; writeln; write('уникальные элементы: '); m: =0; for i: = 1 to n do       begin       k: =1;       for j: = 1 to n do               if i< > j then                     if a[i]=a[j] then k: =0;       if k=1 then             begin             m: =m+1;             b[m]: =a[i];             end       end; for m: =1 to m do       begin       a[m]: =b[m];       write(' ',a[m])       end; end. пример работы программы: исходный массив: 3 7 11 11 11 0 9 3 9 9 10 1 4 уникальные элементы: 7 0 10 1 4 вторая программа: var    a: array[1..10000] of integer;     n,min,max,b: integer; beginwrite('введите размерность массива: '); readln(n); write('введите массив a(',n,'): '); for n: = 1 to n do      read(a[n]); min: =1; max: =1; for n: = 2 to n do      begin      if a[n]< min then min: =n;       if a[n]> max then max: =n;       end; writeln('min(a) = a[',min,'] = ',a[min]); writeln('max(a) = a[',max,'] = ',a[max]); b: =a[max]; a[max]: =a[min]; a[min]: =b; write('a(',n,'): '); for n: = 1 to n do      write(' ',a[n])end.пример работы программы: введите размерность массива: 7введите массив a(7): 1 3 4 6 7 5 2 min(a) = a[1] = 1max(a) = a[5] = 7a(7): 7 3 4 6 1 5 2 третья программа: const    n = 3;     m = 4; var    a: array[1..n,1..m] of integer;     b: array[1..m,1..n] of integer;     i,j: integer; beginrandomize; writeln('исходная матрица: '); for i: = 1 to n do      begin      for j: = 1 to m do              begin              a[i,j]: =random(21)-10;               write(a[i,j]: 3,' ')              end;       writeln;       end; writeln; writeln('транспонированная матрица: '); for i: = 1 to m do      begin      for j: = 1 to n do              begin              b[i,j]: =a[j,i];               write(b[i,j]: 3,' ')              end;       writeln      end; end. пример работы программы: исходная матрица:   10    3  10    1   -4    9  -9    2   -1    4    2    1 транспонированная матрица:   10  -4  -1   3    9    4   10  -9    2   1    2    1

Реши свою проблему, спроси otvet5GPT

  • Быстро
    Мгновенный ответ на твой вопрос
  • Точно
    Бот обладает знаниями во всех сферах
  • Бесплатно
    Задай вопрос и получи ответ бесплатно

Популярно: Информатика

Caktus Image

Есть вопросы?

  • Как otvet5GPT работает?

    otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса.
  • Сколько это стоит?

    Проект находиться на стадии тестирования и все услуги бесплатны.
  • Могу ли я использовать otvet5GPT в школе?

    Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое!
  • В чем отличия от ChatGPT?

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

Подпишись на наш телеграмм канал

GTP TOP NEWS