31 октября, 00:20

Ввести одномерный массив из 12 целых чисел с помощью генератора случайных чисел (числа в диапазоне [-10; 10] и заменить отрицательные элементы числом 1 (организовать вывод исходного и полученного в результате замены массивов).

+1
Ответы (1)
  1. 31 октября, 00:55
    0
    const n=12;

    var a:array[1 ... n] of integer;

    i:integer;

    begin

    write (' Исходный массив: ');

    for i:=1 to n do

    begin

    a[i]:=random (21) - 10;

    write (a[i]:3,' ')

    end;

    writeln;

    writeln;

    write ('Получённый массив: ');

    for i:=1 to n do

    begin

    if a[i]<0 then a[i]:=1;

    write (a[i]:3,' ')

    end

    end.
Знаешь ответ?
Не уверен в ответе?
Найди верный ответ на вопрос ✅ «Ввести одномерный массив из 12 целых чисел с помощью генератора случайных чисел (числа в диапазоне [-10; 10] и заменить отрицательные ...» по предмету 📙 Информатика, а если ответа нет или никто не дал верного ответа, то воспользуйся поиском и попробуй найти ответ среди похожих вопросов.
Искать другие ответы