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.
<em><u>Тестовое решение:</u></em>
*** Исходный массив ***
-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
"Слияние слоев" -photoshop
"Закрепить слои" -corel
Ответ:
a=int(input())
for i in reversed(range(a^0)):
print('Осталось %d секунд' % i)
print(" Start!")
это первая задача, вторую решить не смогла
Объяснение: