Ianbor
5 год назад
Дан целочисленный массив размера 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.
ОТВЕТЫ
Эрнст
Oct 24, 2020
begin
var a:=ArrRandom(ReadInteger('n='),-50,50); a.Println;
a:=Range(1,a.Length-1,2).Select(i->a[i]).ToArray;
a.Println
end.
n= 15
-31 20 -30 -1 -47 1 19 -47 32 36 -32 7 -43 -40 -23
20 -1 1 -47 36 7 -40
677
Смежные вопросы:
