Дан одномерный массив целых чисел. Заменить все четные числа в массиве 0.
Const
n = 20;
var
x: array[1..n] of integer;
i: integer;
begin
Randomize;
Writeln(*** Исходный массив ***);
for i := 1 to n do
begin
x[i] := Random(101) - 50;
Write(x[i]:4);
end;
Writeln;
Writeln(*** Результирующий массив ***);
for i := 1 to n do
begin
if (x[i] mod 2) = 0 then x[i] := 0;
Write(x[i]:4);
end;
end.
Тестовое решение:
*** Исходный массив ***
-4 -8 42 18 -4 -19 -35 21 19 32 -45 45 -43 -22 -17 -12 11 9 -47 37
*** Результирующий массив ***
0 0 0 0 0 -19 -35 21 19 0 -45 45 -43 0 -17 0 11 9 -47 37
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
