Программа удаления из массива четных элементов
Program zamena_elementow_masiwa; Uses Crt; const n= 15; Var a: array [1..n] of integer; i, j, nOst: integer; Begin Randomize; writeln('выводим массив из 15 случайных чисел'); For i:= 1to n do Begin a[i]:=-15+ Random(100); Write(a[i],' '); End; writeln; nOst:=n; for i:=n downto 1 do if a[i]mod 2 =0 then begin for j:=i to nOst-1 do a[i]:=a[j+1]; a[nOst]:=0; dec(nOst); end; Writeln('обработанный массив'); For i:= 1to nOst do Write(a[i],' '); Readln;
Автор Анастасия Лобанева