• Дан двумерный массив размерностью n*m. Заменить все отрицательные элементы на противоположные.(помогите составить программу для паскаля).

Ответы 1

  • Program a1; Uses crt; const n=8; m=8; Var a:array[1..n,1..m] of integer; i,j:byte; Begin Writeln('Исходная матрица'); For i:=1 to n do begin Writeln; For j:= 1 to m do begin a[i,j]:=random(101)-50; Write(a[i,j],' '); end; end;

    Writeln; Writeln('Отредактированная матрица'); For i:=1 to n do begin Writeln; For j:= 1 to m do begin If a[i,j]<0 then a[i,j]:=abs(a[i,j]); Write(a[i,j],' '); end; end; End.

    • Автор:

      vinnytajq
    • 6 лет назад
    • 0
  • Добавить свой ответ

Еще вопросы

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years