Question

Дан массив A[1..10] заменить четные элементы этого массива на их квадрат. Решение нужно для 9 класса на pascalABC

Answer 1

Var a:array[1..1000] of integer;
i,n:integer;
begin
randomize;
write('Введите количество элементов массива n='); readln(n);
for i:=1 to n do begin
a[i]:=random(100)-40; write (a[i],' '); end;
writeln('Новый массив: ');
for i:=1 to n do 
if mod 2 = 0 then a[i]:=sqr(a[i]);
for i:=1 to n do 
write(a[i],' '); ;
end.

Answer 2

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

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

var
  A: array[1..10] of integer;
  i: integer;
begin
  // Заполнение массива случайными числами
  for i := 1 to 10 do
    A[i] := random(19) - 9;

// Замена четных элементов на их квадрат
  for i := 1 to 10 do
  begin
    if A[i] mod 2 = 0 then
      A[i] := A[i] * A[i];
  end;

// Вывод измененного массива
  for i := 1 to 10 do
    writeln(A[i]);
end.

В этом коде мы используем цикл `for` для заполнения массива `A` случайными числами от -9 до 9. Затем мы используем еще один цикл `for` для обхода массива и проверки четности каждого элемента. Если элемент является четным, то мы заменяем его на его квадрат, умножая его самого на себя. Наконец, мы выводим измененный массив на экран с помощью команды `writeln`.

Примечание: Поскольку в вашем вопросе не указано, какие значения должны быть в исходном массиве, я использовал случайные числа от -9 до 9 для заполнения массива. Вы можете изменить эту часть кода в соответствии с вашими требованиями.

Надеюсь, это поможет вам решить задачу! Если у вас возникнут еще вопросы, не стесняйтесь задавать их.