Ну хоть кто-нибудь помогите очень прошу!! дан массив 10х10 . все отрицательные его элементы заменить их значением по модулю

1

Ответы и объяснения

Лучший Ответ!
2013-11-11T00:18:34+04:00
Program Task;
Var a: Array [1..10, 1..10] of Integer;
i, j: Integer;
Begin
Randomize;
For i := 1 To 10 Do
For j := 1 To 10 Do
a[i, j] := Random(50) - 25;
WriteLn('Массив: ');
For i := 1 To 10 Do
Begin
For j := 1 To 10 Do
Write(a[i, j], ' ');
WriteLn;
End;
For i := 1 To 10 Do
For j := 1 To 10 Do
If a[i, j] < 0 Then
a[i, j] := Abs(a[i, j]);
WriteLn('Результат:');
For i := 1 To 10 Do
Begin
For j := 1 To 10 Do
Write(a[i, j], ' ');
WriteLn;
End;
ReadLn;
End.