Uses crt; const n=10; var a:array[1..n] of integer; i,k:integer; begin randomize; for i:=1 to n do begin a[i]:=random(50); write(a[i]:3); end; writeln; for i:=1 to n do if a[i] mod 2 =0 then inc(k); if k=0 then writeln('Элементы для удаления не найдены') else begin for i:=1 to n do if a[i] mod 2<>0 then write(a[i]:3); end; end.
const n=10;
var a:array[1..n] of integer;
i,k:integer;
begin
randomize;
for i:=1 to n do
begin
a[i]:=random(50);
write(a[i]:3);
end;
writeln;
for i:=1 to n do
if a[i] mod 2 =0 then inc(k);
if k=0 then writeln('Элементы для удаления не найдены')
else
begin
for i:=1 to n do
if a[i] mod 2<>0 then write(a[i]:3);
end;
end.