Question

ВИКОНАТИ ЗАВДАННЯ ПАСКАЛЬ 2. Серед 10 введених чисел непарні замінити 0, парні залишити без змін. (зразок – програма на знаходження максимуму серед 10 чисел). Використовується 3 цикли: 1 – вводиться масив; 2 – заміна непарних чисел на 0; 3 – виводиться на екран новий масив. Приклад: 8 mod 3 = 2 n mod i=0 11, 17 a[i] mod 2=0

Answer 1

Думаю что так.

program ReplaceOddWithZero;

var

 arr: array[1..10] of Integer;

 i: Integer;

begin

 // Вводим массив

 writeln('Введите 10 целых чисел:');

 for i := 1 to 10 do

 begin

   readln(arr[i]);

 end;

 // Заменяем нечетные числа на 0

 for i := 1 to 10 do

 begin

   if arr[i] mod 2 = 0 then

   begin

     // Четное число - оставляем без изменений

   end

   else

   begin

     // Нечетное число - заменяем на 0

     arr[i] := 0;

   end;

 end;

 // Выводим новый массив

 writeln('Новый массив:');

 for i := 1 to 10 do

 begin

   write(arr[i], ' ');

 end;

 writeln;

end.

Answer 2

Ось приклад програми на мові Паскаль, яка виконує вказані вами умови:

pascalCopy code
program ReplaceOddNumbers;
const
  N = 10; // Кількість чисел

var
  numbers: array[1..N] of Integer;
  i: Integer;

begin
  // Ввід масиву
  for i := 1 to N do
  begin
    Write('Введіть число ', i, ': ');
    ReadLn(numbers[i]);
  end;

  // Заміна непарних чисел на 0
  for i := 1 to N do
  begin
    if numbers[i] mod 2 <> 0 then
      numbers[i] := 0;
  end;

  // Виведення нового масиву
  WriteLn('Новий масив:');
  for i := 1 to N do
  begin
    WriteLn(numbers[i]);
  end;
end.

У цій програмі спочатку вводяться 10 чисел і зберігаються в масиві numbers. Потім за допомогою другого циклу перевіряється, які числа є непарними, і вони замінюються на 0. Нарешті, третім циклом виводиться новий масив, який містить замінені числа.

Будь ласка, зверніть увагу, що програма очікує введення 10 чисел з клавіатури, по одному числу на рядок.