• Дан целочисленный массив размера N (> 2). Удалить из массива все элементы с нечетными номерами (1, 3, …).
    Попробовал написать, но не получилось.
    program project2;
    var n,i, nech:integer;
    A:array [1..10] of integer;
    begin
    n:=10;
    for i:=1 to n do
    begin
    writeln('Vvedite a[',i,']');
    readln(a[i]);
    end;
    for i:=1 to n do
    if a[i] mod 2=0 then
    nech:=i;
    for i:=nech to n-1 do
    a[i]:=a[i+1];
    writeln('massiv imeet vid');
    for i:=1 to n do writeln (a[i]);
    end.

Ответы 3

  • a.Println;  a:=Range(1,a.Length-1,2).Select(i->a[i]).ToArray; МНЕ НЕ ТАК НАДО, МЫ ЭТО ЕЩЁ НЕ ПРОХОДИЛИ, МОЖНО ЛИ ДРУГИМ СПОСОБОМ, ТАК КАК ЭТОТ НЕ ПОДОЙДЁТ
    • Автор:

      izaiah
    • 6 лет назад
    • 0
  • Это Ваша проблема, подойдет или нет. Вы в вопросе указали, что пробовали написать и не получилось. Но вовсе не указали, что нужно давать решение, исправляя Ваше. Что дало мне право дать свое так, как я счел нужным. А что Вы учили, что нет - про то мне неизвестно.
    • Автор:

      ninabuck
    • 6 лет назад
    • 0
  • // PascalABC.NET 3.3, сборка 1611 от 06.01.2018// Внимание! Если программа не работает, обновите версию!begin  var a:=ArrRandom(ReadInteger('n='),-50,50); a.Println;  a:=Range(1,a.Length-1,2).Select(i->a[i]).ToArray;  a.Printlnend.Примерn= 15-31 20 -30 -1 -47 1 19 -47 32 36 -32 7 -43 -40 -2320 -1 1 -47 36 7 -40
  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years