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