Задать вопрос
30 апреля, 18:54

В двумерном целочисленном массиве положительные элементы заменить их квадратами

+2
Ответы (1)
  1. 30 апреля, 21:41
    0
    Const

    N = 3;

    Var

    A:Array[1 ... N, 1 ... N] of integer;

    i, j:integer;

    Begin

    Randomize;

    WriteLn ('Исходный массив:') ;

    For i: = 1 to N do

    Begin

    For j: = 1 to N do

    Begin

    A[i, j]:=random (21) - 10;

    Write (A[i, j]:3,' ')

    End;

    WriteLn

    End;

    WriteLn;

    WriteLn ('Переработанный массив:') ;

    For i: = 1 to N do

    Begin

    For j: = 1 to N do

    Begin

    if A[i, j]>0 then A[i, j]:=A[i, j]*A[i, j];

    Write (A[i, j]:3,' ') ;

    End;

    WriteLn

    End;

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