Интернет игры документы данные
//PascalABC.NET 3.2 сборка 1318
Const
n=5;
Var
ar:array[1..n] of integer;
i,indf:integer;
begin
indf:=-1;
for i:=1 to n do
begin
readln(ar[i]);
if not(odd(ar[i])) then indf:=i;
end;
if indf=-1 then
writeln('Нет чётных')
else
begin
for i:=indf to n-1 do
ar[i]:=ar[i+1];
for i:=1 to n-1 do
write(ar[i]:4);
end;
end.
Пример ввода:
1 2 3 4 5
Пример вывода:
1 2 3 5
<h3>PascalABC.NET 3.4.2, сборка 1859 от 08.11.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
var X := ArrRandom(ReadInteger('A='), -21, 21);
X.Println;
X.Sorted.Println;
X.Where(t -> t.IsOdd).OrderDescending.Println
end.
<h3>A= 18</h3><h3>9 9 -10 21 -11 -13 -2 19 5 20 -5 20 11 -6 -2 -10 14 -12</h3><h3>-13 -12 -11 -10 -10 -6 -5 -2 -2 5 9 9 11 14 19 20 20 21</h3><h3>21 19 11 9 9 5 -5 -11 -13</h3>
Джостик
Графопосторитель
Принтер
Блок питания(Не точно)
Колонки
Карта расширения
End
Матричный принтер(Не точно)
Вроде так должно быть..