Question

Сформировать одномерный массив, состоящий из 7 элементов (элементы вводятся с клавиатуры). Нечетныеэлементы заменить на 1, четные элементы заменить на0. Вывести массив в строкуPascal

Answer 1

program test;

var a: array [1..7] of integer;

i: integer;

begin

for i:=1 to 7 do read(a[i]);

for i:=1 to 7 do

if a[i] mod 2 = 0 then a[i]:=0

else a[i]:=1;

writeln;

for i:=1 to 7 do write(a[i],' ')

end.

Answer 2

Вот пример кода на Pascal, который позволит вам создать одномерный массив из 7 элементов, заменить нечетные элементы на 1, четные на 0 и вывести массив в строку:

pascalCopy code
program ArrayExample;
var
  arr: array[1..7] of integer;
  i: integer;
begin
  writeln('Введите 7 элементов массива:');
  
  // Ввод элементов с клавиатуры
  for i := 1 to 7 do
  begin
    write('Элемент ', i, ': ');
    readln(arr[i]);
  end;

  // Замена нечетных и четных элементов
  for i := 1 to 7 do
  begin
    if arr[i] mod 2 = 0 then
      arr[i] := 0
    else
      arr[i] := 1;
  end;

  // Вывод массива в строку
  write('Измененный массив: ');
  for i := 1 to 7 do
    write(arr[i], ' ');

  writeln; // Перевод строки для корректного вывода
end.

Этот код сначала запрашивает 7 элементов массива с клавиатуры, затем заменяет нечетные элементы на 1 и четные на 0, и наконец выводит измененный массив в строку.