Дана таблица и правило условного формаьирования. перечислите адреса c5: c9, удовлетворяющие заданному правилу

142

415

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

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

techno290696

Информатика

4,6(55 оценок)

адреса ячеек с5, с8, с9 диапазона с5: с9 ,удовлетворяющие заданному правилу. (это правильно! )

seanius

Информатика

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

Будем считать, что числа n, m заранее известны. делать в паскале динамические массивы - это большой геморрой. 1. program even var i, j, p: integer; var array a[1..n, 1..m] of integer; begin for i: =1 to n do for j: =1 to m do readln (a[i, j]); // цикл ввода начального массива for i: =1 to n do // цикл по строкам begin p: =1; // произведение четных чисел for j: =1 to m do // цикл по столбцам begin if (a[i, j] mod 2 = 0) then p: = p*a[i, j]; // умножаем очередное четное число end; a[i, m] : = p; // вместо последнего числа записываем произведение четных end; for i: =1 to n do for j: =1 to m do writeln (a[i, j]); // цикл вывода конечного массива end. 2. program minmax var i, j, q, min, nmin, max, nmax: integer; var array a[1..n, 1..m] of integer; begin for i: =1 to n do for j: =1 to m do readln (a[i, j]); // цикл ввода начального массива for i: =1 to n do // цикл по строкам begin min: =a[i, 1]; nmin: =1; max: =a[i, 1]; nmax: =1; // начальные значения for j: =1 to m do // цикл по столбцам begin if (a[i, j] > max) then max: = a[i, j]; nmax = j; // устанавливаем максимум if (a[i, j] < min) then min: = a[i, j]; nmin = j; // устанавливаем максимум end; q: =a[i, nmin]; a[i, nmin]: =a[i, nmax]; a[i, nmax]: =q; // меняем их местами end; for i: =1 to n do for j: =1 to m do writeln (a[i, j]); // цикл вывода конечного массива end. 3. program povorot var i, j, k, q: integer; var array a[1..n, 1..m], b[1..m, 1..n] of integer; begin for i: =1 to n do for j: =1 to m do readln (a[i, j]); // цикл ввода начального массива for i=1 to m do // цикл по m строкам нового массива (их m, как столбцов в а) begin for j: =1 to n do // цикл по n столбцам нового массива (как строк в а) b[i, j]: =a[j, n-i+1]; // формируем новый массив end; for i: =1 to m do for j: =1 to n do writeln (b[i, j]); // цикл вывода конечного массива end.