Задание:
Дан двухмерный массив 3x4 случайных целых чисел. Преобразовать массив следующим образом: элементы > 10 заменить на разницу номера строки и столбца, элементы ∈ [-5; 5] заменить на N строки в квадрате. Полученный массив вывести!
Решение:
var a: array [1… 3, 1… 4] of integer; i, j: integer; begin for i: =1 to 3 do for j: =1 to 4 do a[i, j]: =trunc (random (30) — 10; for i: =1 to 3 do for j: =1 to 4 do if a[i, j] > 10 then a[i, j]: =i — j; for i: =1 to 3 do for j: =1 to 4 do if (a[i, j] <= 5) and (a[i, j] >=-5) then a[i, j]: =sqr (i); for i: =1 to 3 dobegin for j: =1 to 4 do write (a[i, j]: 4, '); writeln; end; readln; e
Знаете другой ответ?