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.
Answers & Comments
Verified answer
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