Задать вопрос
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. ...» по предмету 📘 Информатика, а если вы сомневаетесь в правильности ответов или ответ отсутствует, то попробуйте воспользоваться умным поиском на сайте и найти ответы на похожие вопросы.
Смотреть другие ответы
Похожие вопросы по информатике
Хотя бы 3-4 задачи! 1) Дан одномерный целочисленный массив размерностью N. Найдите количество элементов, которые кратны 3 (5). 2) Дан одномерный целочисленный массив А, состоящий из N элементов. Найти сумму всех четных элементов массива.
Ответы (1)
1. Дан массив целых чисел. Все отрицательные элементы заменить положительными. 2. Дан массив целых чисел. Чётные элементы возвести в квадрат остальные разделить пополам
Ответы (1)
H. Работа с несколькими массивами Дан массив a, состоящий из n целых чисел. Ваша задача - переписать его элементы в другой массив такого же размера следующим образом: сначала должны идти все отрицательные элементы, а затем все остальные.
Ответы (1)
1) Дан массив целых чисел из 12 элементов. Напечатать все четные элементы. 2) Дан массив целых чисел из 10 элементов. Все элементы, кратные числу 10, заменить нулём. Нужна полная программа, Pascal ABC.
Ответы (1)
1. Дан двумерный массив размером 3x5. Вычислить сумму элементов массива 2. Дан массив целых чисел размеров 4 х4. Заменить все элементы главной диагонали на нули. Вывести на экран монитора содержимое массива до обработки и после обработки 3.
Ответы (1)