Question

В массиве из 10 целочисленных элементов, отрицательные элементы заменить на 0, а положительные на 1 Паскаль

Answer 1

Ответ:

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

i:integer;

begin

write ('Массив ');

for i:=1 to 10 do

begin

a[i]:=random(19)-9;

write(a[i]:3)

end;

writeln;

write ('Массив ');

for i:=1 to 10 do

begin

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

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

write(a[i]:3)

end;

end.

Answer 2

Вот пример кода на языке Паскаль, который решает данную задачу:

pascalCopy code
program ReplaceArrayElements;
var
  arr: array[1..10] of Integer;
  i: Integer;
begin
  { Заполнение массива случайными числами }
  Randomize;
  for i := 1 to 10 do
    arr[i] := Random(21) - 10; { Генерируем числа от -10 до 10 }
  
  { Замена отрицательных элементов на 0 и положительных на 1 }
  for i := 1 to 10 do
  begin
    if arr[i] < 0 then
      arr[i] := 0
    else
      arr[i] := 1;
  end;
  
  { Вывод массива на экран }
  for i := 1 to 10 do
    Write(arr[i], ' ');
end.

Этот код создает массив arr из 10 целочисленных элементов и заполняет его случайными числами в диапазоне от -10 до 10. Затем происходит замена отрицательных элементов на 0 и положительных на 1. Наконец, массив выводится на экран.