1) Двумерные массивыДана квадратная матрица (5*5). Заполнить ее случайными целыми…

Question

61

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

категория: информатика

ответить

в избранное ссылка

Знаете ответ?

deadmau5 · Accepted Answer

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.

Email:
Пароль:
	забыли пароль?

Логин:
Email:
Пароль: