[54545454]

Элементы матрицы С, которые крупнее 5, уменьшить на 2, отрицательные элементы матрицы взять по модулю. Вывести элементы начальной и преобразованной матрицы.

[Vladimr]

На каком языке программирования писать решение задачи: Delphi 7 (как указанно в вашем профиле) или на С/С++ (как выбрана ветка задания вопроса)?

Также не понятно имеем ли мы дело с массивом(Как указанно в заголовке) или с матрицей (как указанно в тексте задания). Не указана размерность массива элементов С. Также не понятно отрицательные значения взять по модулю? Или модуль отрицательных чисел сравнить с 5 и если больше то вычесть 2?

Как пример решения на Delphi 7

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33

const n=100;m=100; //размерность матрицы   var c:array [1..n,1..m] of real; //первоначальный матрицы d:array [1..n,1..m] of real; //преобразованный матрицы   i,j:integer; //для цикла s:string; //для вывода массива begin //ввод значений в матрицу С напишите сами     for i := 1 to n do     for j := 1 to m do       if abc(c[i,j])>5 then //модуль числа        d[i,j]:=c[i,j]-2 else d[i,j]:=c[i,j];          writeln('Оригинальная матрица');   for i := 1 to n do //вывод матрицы С    begin     s:='';     for j := 1 to m do s:=s+' '+floattostr(c[i,j]); //записываем элементы строки матрицы      writeln(s); //вывод на экран строки массива    end;        writeln('Изменённая матрица');   for i := 1 to n do //вывод изменённой матрицы    begin     s:='';     for j := 1 to m do s:=s+' '+floattostr(d[i,j]); //записываем элементы строки матрицы      writeln(s); //вывод на экран строки массива    end; end;