14 июля, 05:28

PascalABC. Дана матрица A (M, N). Возвести в квадрат все отрицательные элементы матрицы.

+1
Ответы (1)
  1. 14 июля, 07:18
    0
    type

    tarray = array [1 ... 50,1 ... 50] of longint;

    var

    a : tarray;

    n, m, i, j : longint;

    begin

    readln (n, m) ;

    for i:=1 to n do

    for j:=1 to m do read (a[i, j]) ;

    for i:=1 to n do

    for j:=1 to m do

    if a[i, j]<0 then a[i, j]:=a[i, j]*a[i, j];

    for i:=1 to n do

    begin

    for j:=1 to m do write (a[i, j],' ') ;

    writeln;

    end;

    end.

    Вместо знака? поставь максимальные значения N и M.
Знаете ответ?
Сомневаетесь в ответе?
Найдите правильный ответ на вопрос ✅ «PascalABC. Дана матрица A (M, N). Возвести в квадрат все отрицательные элементы матрицы. ...» по предмету 📘 Информатика, а если вы сомневаетесь в правильности ответов или ответ отсутствует, то попробуйте воспользоваться умным поиском на сайте и найти ответы на похожие вопросы.
Смотреть другие ответы