Question

Помогите, пожалуйста с Pascal ! Задание: Массив А задается с клавиатуры. Создайте массив Б состоящий из четных чисел массива А. (ОТВЕЧУ ВЗАИМНОЙ ПОМОЩЬЮ ПО ДРУГИМ ПРЕДМЕТАМ ! ЗАРАНЕЕ СПАСИБО !!! P.S. ребята, пожалуйста, не отвечайте ради прикола... дело серьёзное ..... )

Answer 1

Const
n=10;
var
a,b:array[1..n]of integer;
i,k:integer;
begin
    for i:=1 to n do
        read(a[i]);
               for i:=1 to n do
                      if a[i] mod 2=0 then
                            begin
                                 k:=k+1;
                                 b[k]:=a[i];
                            end;
writeln;
             for i:=1 to k do
                   write(b[i]:4);
end.

Answer 2

Для решения данной задачи вам понадобится использовать цикл и условие. Давайте разберемся по шагам, как решить эту задачу на языке Pascal.

1. Объявите два массива: А и Б. Массив А будет использоваться для ввода чисел с клавиатуры, а массив Б будет содержать только четные числа из массива А.

2. Запросите у пользователя размерность массива А и заполните его числами с клавиатуры. Например:

var
  A, B: array of Integer;
  n, i, j: Integer;
begin
  Write('Введите размерность массива А: ');
  Readln(n);
  
  SetLength(A, n);
  
  for i := 0 to n - 1 do
  begin
    Write('Введите элемент массива А: ');
    Readln(A[i]);
  end;
end.

3. Создайте цикл, который будет проходить по всем элементам массива А и проверять их на четность. Если элемент четный, то добавьте его в массив Б. Например:

  SetLength(B, 0);
  
  for i := 0 to n - 1 do
  begin
    if A[i] mod 2 = 0 then
    begin
      SetLength(B, Length(B) + 1);
      B[Length(B) - 1] := A[i];
    end;
  end;

4. Выведите полученный массив Б на экран. Например:

  Write('Массив Б: ');
  
  for j := 0 to Length(B) - 1 do
    Write(B[j], ' ');
  
  Readln;
end.

Теперь, после выполнения всех шагов, у вас должен получиться массив Б, состоящий только из четных чисел массива А.

Надеюсь, эта информация поможет вам решить задачу. Удачи!