Question

Пусть задан массив из 40 элементов (случайные числа [-10;10]. Выведите на экран сначала положительные элементы массива, а затем отрицательные. В паскале напишите пожалуйста

Answer 1

program soppchm;

uses

crt;

var

a: array [1..40] of Integer;

i: integer;

begin

for i := 1 to 40 do

begin

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

writeln('a[', i, ']= ', a[i]);

end;

writeln('Положительные:');

for i := 1 to 40 do

if (a[i] >= 0) then

writeln('a[', i, ']= ', a[i]) ;

writeln('Отрицательные:');

for i := 1 to 40 do

if (a[i] < 0) then

writeln('a[', i, ']= ', a[i]) ;

readln;

end.

Answer 2

PascalABC.NET:

• ###
• var a := ArrRandom(40, -10, 10);
• (a.Wh(x → x>0) + a.Wh(x → x<0)).Pr

Answer 3

Конечно, вот пример кода на Pascal (Delphi) для решения вашей задачи:

pascalCopy code
program SplitPositiveAndNegative;
var
  arr: array[1..40] of Integer;
  positive: array[1..40] of Integer;
  negative: array[1..40] of Integer;
  i, posCount, negCount: Integer;
begin
  Randomize;

  // Заполнение массива случайными числами от -10 до 10
  for i := 1 to 40 do
    arr[i] := Random(21) - 10;

  posCount := 0;
  negCount := 0;

  // Разделение положительных и отрицательных элементов
  for i := 1 to 40 do
  begin
    if arr[i] > 0 then
    begin
      Inc(posCount);
      positive[posCount] := arr[i];
    end
    else
    begin
      Inc(negCount);
      negative[negCount] := arr[i];
    end;
  end;

  // Вывод положительных элементов
  writeln('Положительные элементы массива:');
  for i := 1 to posCount do
    writeln(positive[i]);

  // Вывод отрицательных элементов
  writeln('Отрицательные элементы массива:');
  for i := 1 to negCount do
    writeln(negative[i]);
end.

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