Question

Программа на Паскаль. Дан массив, состоящий из 10-ти чисел в диапазоне от -10 до +10 (элементы массива формируются случайным образом). Вывести сформированный массив на экран и затем заменить все отрицательные числа 0, а положительные 1.

Answer 1

const

 n=10;

var

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

 i:integer;

begin

 for i:=1 to n do

   begin

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

     write(a[i]:4);

     if a[i]<0 then  

       a[i]:=0

         else

           if a[i]>0 then

             a[i]:=1;      

   end;

 writeln;

 for i:=1 to n do

   write(a[i]:4);

end.

Answer 2

Программа на Паскаль для замены отрицательных чисел на 0 и положительных на 1

Вот пример программы на языке Паскаль, которая решает задачу замены отрицательных чисел на 0 и положительных на 1 в массиве:

program ReplaceNumbers;

const
  ARRAY_SIZE = 10;
  MIN_VALUE = -10;
  MAX_VALUE = 10;

var
  numbers: array[1..ARRAY_SIZE] of Integer;
  i: Integer;

begin
  // Заполнение массива случайными числами
  Randomize;
  for i := 1 to ARRAY_SIZE do
    numbers[i] := Random(MAX_VALUE - MIN_VALUE + 1) + MIN_VALUE;

// Вывод исходного массива на экран
  writeln('Исходный массив:');
  for i := 1 to ARRAY_SIZE do
    write(numbers[i], ' ');
  writeln;

// Замена отрицательных чисел на 0 и положительных на 1
  for i := 1 to ARRAY_SIZE do
  begin
    if numbers[i] < 0 then
      numbers[i] := 0
    else
      numbers[i] := 1;
  end;

// Вывод измененного массива на экран
  writeln('Измененный массив:');
  for i := 1 to ARRAY_SIZE do
    write(numbers[i], ' ');
  writeln;
end.

В этой программе мы используем константы `ARRAY_SIZE`, `MIN_VALUE` и `MAX_VALUE` для определения размера массива и диапазона значений элементов массива. Затем мы объявляем массив `numbers` и переменную `i` для использования в циклах.

Программа начинается с заполнения массива `numbers` случайными числами в заданном диапазоне. Затем мы выводим исходный массив на экран.

Далее мы проходим по массиву и заменяем отрицательные числа на 0 и положительные числа на 1.

Наконец, мы выводим измененный массив на экран.

Примечание: Пожалуйста, обратите внимание, что в данном ответе использованы фрагменты из разных источников, но они не являются полными цитатами. Предоставленные фрагменты служат только для подтверждения фактов и не являются источниками информации.