Поменять местами значения К-ого и Р-ого столбцов матрицы В, размерностью MхM, заполненную случайным образом (программа Паскаль)

121

407

Посмотреть ответы 2

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

йАнанасик11

Другие предметы

4,5(86 оценок)

USES Crt;
LABEL   M1;
CONST   M=8;
VAR
   A:ARRAY[0..M,0..M] OF INTEGER;
   I,J,K,P:BYTE;   PP:INTEGER;
BEGIN
   ClrScr;
   { Заполнение двумерного массива случайным образом и вывод в виде прямоугольной      матрицы }
   WriteLn(' Значения двумерного массива');
   FOR I:=1 TO M DO Begin
     FOR J:=1 TO M DO Begin
       A[I,J]:=Random(23);   Write(A[I,J]:3);
     End;     WriteLn;
   End;   WriteLn;
   WriteLn(' Введите номера столбцов, которые необходимо поменять');
   WriteLn(' Их значения не должны превышать ',M);
   M1:ReadLn(K,P);
   IF (K>M) OR (P>M) THEN GOTO M1;
   { Перестановка значений введенных столбцов }
   FOR I:=1 TO M DO Begin
     PP:=A[I,K];     A[I,K]:=A[I,P];     A[I,P]:=PP;
   End;
   WriteLn(' Измененный двумерный массив');
   FOR I:=1 TO M DO Begin
     FOR J:=1 TO M DO Begin
       Write(A[I,J]:3);
     End;   WriteLn;
   End;
END.

отличница474

Другие предметы

4,4(28 оценок)

Пангея

ол өте үлкен суперконтинент,полеозойдың аяғында және мезозойдың бас кезінде Жердің барлық құрлығын біріктіріп тұрды деуге болады.Есімін Альфред Вегенер ұсынған болатын.

Пангеяның өзгеру кезеңінде өте ерте континенттердің қақтығысу әсерінен тау жүйелері пайда болды.Олардың кейбіреулері біздің кезімізге дейін жетті,мысалы Орал және Аппалачи таулары.Бұл таулар қазіргі биік әрі жас Еуропадағы Альпі және Солтүстік Америкадағы Кордильера,Оңтүстік Америкадағы Анды мен Азиядағы Гималай тауларынан әлде қайда кәрі.Өте ұзақ миллиондаған жылдар бойғы қоршаған орта әсерінен Орал және Аппалачи қатты бұзылған және өте аласа.

Пангеяны қоршап жатқан алып мұхит Панталасса деген атты алады.

Пангея перм кезеңінде пайда болды және триастың соңында бұзылды.Шамамен 200-210 миллион жыл бұрын екі континентке ажырады.Солтүстік континент Лавразия соңынан Еуразия мен Солтүстік Америкаға бөлінген және оңтүстік континент Гондвана соңынан Африка,Оңтүстік Америка,Үндістан,Австралия және Антарктидаға бөлінген.

Негізінде суперконтиненттер бұдан бұрын да болғанын ескеру қажет.Мысалы 750 миллион жыл бұрын өзгеріп кеткен Родиния континенті.

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

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

Задай свой вопрос

Популярно: Другие предметы

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

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

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

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

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

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