Const n=10;
var a,b:array[1..n] of integer;
i,j,c:integer;
begin
writeln('Исходный массив:');
for i:=1 to n do
begin
a[i]:=random(51)-25;
write(a[i]:4);
end;
writeln;
j:=0;
for i:=1 to n do
begin
c:=abs(a[i]) mod 10;
if (c=3)or(c=7)or(c=9) then begin j:=j+1; b[j]:=a[i]; end;
end;
writeln('Полученный массив:');
for i:=1 to j do write(b[i]:4);
writeln;
end.
Пример:
Исходный массив:
17 6 15 -23 19 -5 -12 -14 5 20
Полученный массив:
17 -23 19