Question

Запросить с клавиатуры массив из 10 целых элементов.Четные увеличить на 2,а нечетным присвоить 0 и вывести таблицу на экран

Answer 1

Const  N = 10;
var
  A: array [1..N] of integer;
  i: integer;
begin
  // Ввод и обработка массива
  for i := 1 to N do begin
    write('Введите ', i, ' элемент -> ');
    readln(A[i]);
    if (A[i] mod 2 = 0) then
      A[i] += 2
    else
      A[i] := 0
  end;
  // Вывод полученного массива на экран
  write('Массив: ');
  for i := 1 to N do begin
    write(A[i], ' ');
  end;
end.