1) двумерные массивы дана квадратная матрица (5*5 заполнить ее случайными целыми числами и вывести на экран в виде таблицы. заменить все элементы матрицы, расположенные выше главной диагонали на 1, ниже главной диагонали -0. главную диагональ оставить без изменения. вывести на экран полученную матрицу. 2) дан двумерный массив целых чисел(4*5). заполнить его случайными числами и вывести на экран в виде таблицы. найти минимальный элемент массива и количество элементов, равных минимальному. 3) дана квадратная матрица (4*4). заполнить ее случайными целыми числами и вывести на экран в виде таблицы. найти произведение всех ненулевых элементов главной и побочной диагоналей.

ответ:

да

объяснение:

санкт-петербурга начинается с 1703 года. тогда начали строить петропавловскую крепость. за всё время своего существования он успел побывать столицей трёх государств, трёх революций и имел три разных названия. основателем города является пётр i — первый российский император. он же сделал санкт-петербург столицей нового государства — российской империи. во времена великой отечественной войны город пережил тяжёлую блокаду.

надеюсь )

да, конечно. в 1712 году по воле петра i столица россии была перенесена в санкт-петербург, специально основанный как столичный город. в 1728 году столица фактически была перенесена обратно в москву в связи с переездом туда петра ii. после его смерти в 1730 году петербургу был подтверждён столичный статус.

Var   a : array [1..5, 1..5] of integer;   i, j : integer; begin   randomize;   for i : = 1 to 5 do   begin     for j : = 1 to 5 do     begin       a[i, j] : = random (1000);       write (a[i, j], ' ');     end;     writeln;   end;   for i : = 1 to 5 do     for j : = 1 to 5 do       if i > j then a[i, j] : = 1       else if j > i then a[i, j] : = 0;   for i : = 1 to 5 do   begin     for j : = 1 to 5 do       write (a[i, j], ' ');     writeln;   end; end. var   a : array [1..4, 1..5] of integer;   i, j, m, c : integer; begin   randomize;   m : = 1000;   for i : = 1 to 4 do   begin     for j : = 1 to 5 do     begin       a[i, j] : = random (1000);       if a[i, j] < m then m : = a[i, j];       write (a[i, j], ' ');     end;     writeln;   end;     c : = 0;   for i : = 1 to 4 do     for j : = 1 to 5 do         if a[i, j] = m then         c : = c + 1;   writeln (m, ' ', c); end. var   a : array [1..4, 1..4] of integer;   i, j, p : integer; begin   randomize;   for i : = 1 to 4 do   begin     for j : = 1 to 4 do     begin       a[i, j] : = random (10);       write (a[i, j], ' ');     end;     writeln;   end;   p : = 1;   for i : = 1 to 4 do   begin     if a[i, i] < > 0 then p : = p * a[i, i];     if a[i, 5 - i] < > 0 then p : = p * a[i, 5 - i];   end;   writeln (p); end.

ответ:

для чего используются таблицы

итак, попытаемся ответить на следующий вопрос: что лучше — организовать информацию в таблицу или просто выровнять данные с клавиши ? что, вы никогда об этом не задумывались? думаем, такой вопрос — вообще не тема для дискуссии, поскольку тут, как говорится, двух мнений быть не может. судите сами.

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

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

"клетка" таблицы называется ячейкой. в ячейку можно поместить текст (много текста) и графику.

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

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

к сожалению, word не сможет преобразовать ваш стол в стойку бара. (но поговаривают, что уже видели проспекты, в которых фирма microsoft анонсировала включение в word панели слесарного инструмента.)

begin

  var (m, n) : = readinteger2('число строк и столбцов: ');

  var a : = matrrandom(m, n, -99, 99);

  a.println(4);

  writeln;

  var me : = m div 2;

  if me > 0 then

  begin

    var v : = arrgen(m - me, i -> 2 * i);

    a : = a.matrslice(v, arrgen(n, i -> i));

    setlength(a, m, n);

    for var i : = m - me to m - 1 do

      for var j : = 0 to n - 1 do

        a[i, j] : = 0;

    a.println(4);

  end;

end.

пример на рисунке.