Задать вопрос
9 августа, 21:37

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

+1
Ответы (1)
  1. 10 августа, 01:16
    0
    Обычно размер указывают, раз нету, взял по дефолту 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.
Знаете ответ?
Сомневаетесь в ответе?
Найдите правильный ответ на вопрос ✅ «8.2. Дан массив из целых чисел А (5,5). Все отрицательные элементы заменить на - 1. ...» по предмету 📘 Информатика, а если вы сомневаетесь в правильности ответов или ответ отсутствует, то попробуйте воспользоваться умным поиском на сайте и найти ответы на похожие вопросы.
Смотреть другие ответы