Индустриальный тип организации общества, по мнению Спенсера, характеризуется неприкосновенностью частной собственности

186

320

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

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

Turalinin

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

4,8(76 оценок)

Правильные ответы к тесту выделены
Тест прошел проверку
ставим +1 к ответу)

ymolyauy

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

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

USES Crt;
VAR
   A:ARRAY[0..8,0..7] OF INTEGER;   A1:ARRAY[0..9,0..7] OF INTEGER;
   A2:ARRAY[0..8,0..7] OF INTEGER;
   I,J,K:BYTE;   PP:INTEGER;
BEGIN
   ClrScr;   Randomize;
   { Заполнение двумерного массива случайным образом и вывод в виде прямоугольной матрицы }
   WriteLn(' Значения элементов двумерного массива');
   FOR I:=1 TO 8 DO Begin
     FOR J:=1 TO 7 DO Begin
       A[I,J]:=Random(15);   Write(A[I,J]:3);
     End;     WriteLn;
   End;   WriteLn;
   { 1. Поменять местами строки }
   WriteLn(' Средние строки поменялись местами с первой и последней');
   FOR J:=1 TO 7 DO Begin
     PP:=A[1,J]; A[1,J]:=A[4,J]; A[4,J]:=PP;
     PP:=A[5,J]; A[5,J]:=A[8,J]; A[8,J]:=PP;
   End;
   { Вывод измененного массива }
   FOR I:=1 TO 8 DO Begin
     FOR J:=1 TO 7 DO
       Write(A[I,J]:3);
      WriteLn;
   End;   ReadLn;
   { 2. Вставка }
   WriteLn(' Первая строка вставлена между средними строками');
   K:=0;
   FOR I:=1 TO 8 DO Begin
     Inc(K);
     FOR J:=1 TO 7 DO Begin
       A1[K,J]:=A[I,J]; Write(A1[K,J]:3);
     End;    WriteLn;
     IF I=4 THEN Begin
                   Inc(K);
                   FOR J:=1 TO 7 DO Begin
                     A1[K,J]:=A[1,J];   Write(A1[K,J]:3);
                   End;    WriteLn;
     End;
   End;   Writeln;   ReadLn;
   { 3. Удаление}
   WriteLn(' Столбцы, в которых первый элемент > последнего, удалены');
   K:=0;
   FOR J:=1 TO 7 DO
     IF A[1,J]<=A[8,J] THEN Begin
                              Inc(K);
                              FOR I:=1 TO 8 DO
                                A2[I,K]:=A[I,J];
     End;
   { Вывод измененного массива }
   FOR I:=1 TO 8 DO Begin
     FOR J:=1 TO K DO
       Write(A2[I,J]:3);
     WriteLn;
   End;   ReadLn;
   { 4. Замена }
   WriteLn(' Элементы первых трех столбцов заменены на их квадраты');
   FOR I:=1 TO 8 DO Begin
     FOR J:=1 TO 7 DO Begin
       IF J<=3 THEN A[I,J]:=Sqr(A[I,J]);   Write(A[I,J]:4);
     End;     WriteLn;
   End;
End.

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

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

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

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

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

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

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

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

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

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