Задание:
Ну хоть кто-нибудь помогите очень прошу! Дан массив 10 х 10. Все отрицательные его элементы заменить их значением по модулю
Решение:
Program Task; Var a: Array [1… 10, 1… 10] of Integer; i, j: Integer; BeginRandomize; For i: =1 To 10 DoFor j: =1 To 10 Doa[i, j]: =Random (50) — 25; WriteLn ('Массив: '); For i: =1 To 10 DoBeginFor j: =1 To 10 DoWrite (a[i, j], '); WriteLn; End; For i: =1 To 10 DoFor j: =1 To 10 DoIf a[i, j] < 0 Thena[i, j]: =Abs (a[i, j]); WriteLn ('Результат: '); For i: =1 To 10 DoBeginFor j: =1 To 10 DoWrite (a[i, j], '); WriteLn; End; ReadLn; End.
Знаете другой ответ?