Question

Паскаль!! Заполнить массив случайными числами в интервале [-10,10] и отобрать в другой массив все чётные отрицательные числа. Пример: Массив А: -5 6 7 -4 -6 8 -8 Массив B: -4 -6 -8

Answer 1

Uses crt;
const
  n = 10;
var 
  a,b : array[1..n] of integer;
  i,j : integer;
begin
  randomize;
  i := 0;
  j := 0;
  for i := 1 to n do
  begin
    a[i] := random(21)-10;
    write(a[i],' ');     
  end;
  writeln;
  for i := 1 to n do
    if (a[i] < 0) and (a[i] mod 2 = 0) then 
    begin
       j := j+1;
       b[j] := a[i];
    end;
  for i := 1 to j do
    writeln(b[i]);
  readln;
end.

Answer 2

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

program FillArray; const N = 10; // размер массива Min = -10; // минимальное значение элемента Max = 10; // максимальное значение элемента var A, B: array [1..N] of Integer; // массивы A и B i, j: Integer; // счетчики циклов begin Randomize; // инициализируем генератор случайных чисел // заполняем массив A случайными числами в интервале [Min, Max] for i := 1 to N do A [i] := Min + Random (Max - Min + 1); // выводим массив A на экран WriteLn ('Массив A:'); for i := 1 to N do Write (A [i], ' '); WriteLn; // отбираем в массив B все четные отрицательные числа из массива A j := 0; // количество элементов в массиве B for i := 1 to N do if (A [i] < 0) and (A [i] mod 2 = 0) then // если элемент отрицательный и четный begin Inc (j); // увеличиваем счетчик на 1 B [j] := A [i]; // добавляем элемент в массив B end; // выводим массив B на экран WriteLn ('Массив B:'); for i := 1 to j do Write (B [i], ' '); WriteLn; end.