• 8.2.  Дан массив из целых чисел А(5,5). Все отрицательные элементы заменить на -1.

Ответы 5

  • это двумерный массив А [1..5, 1..5]
    • Автор:

      ricomoyer
    • 6 лет назад
    • 0
  • Ну так и надо писать же о.О
    • Автор:

      justice24
    • 6 лет назад
    • 0
  • Program G;Uses Crt;Const N=5; M=5;Var i, k: integer; mass: array [1..n, 1..m] of integer;Begin ClrScr; For i:=1 to N do Begin For k:=1 to M do Begin Mass[i, k]:=random(21)-10; Write(Mass[i, k]:4); End; Writeln; End; Writeln;
  • For i:=1 to N do For k:=1 to M do If mass[i,k]<0 then mass[i,k]:= -1; For i:=1 to N do Begin For k:=1 to M do Write(Mass[i,k]:4); Writeln; End; Readln; End.
  • Обычно размер указывают, раз нету, взял по дефолту 10(Const N=10). И диапазон какой-то странный, думаю имелось введу (-5;5)Program G;Uses Crt;Const N=10;Var i: integer; mass: array [1..n] of integer;Begin  Randomize; ClrScr; Writeln('Исходный массив из 10 чисел диапозона (-5;5):'); For i:=1 to N do  Begin   Mass[i]:=Random(11)-5;   Write(Mass[i]:4);  End; Writeln; Writeln('Исходный массив после замены всех отрицательны на -1:'); For i:=1 to N do  If mass[i]<0 then mass[i]:=-1; For i:=1 to N do write(Mass[i]:4); Readln; End.
  • Добавить свой ответ

Еще вопросы

Войти через Google

или

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

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

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