Ответы
Ответ дал:
0
const n =30;
var
s:string;
i,k,m:integer;
a:array[1..n] of integer;
b:array[1..n] of integer;
begin
for i:=1 to n do
readln(a[i]);
k:=1 ;
for i:=1 to n do
begin
str(a[i],s);
if pos('5',s) = 0 then
begin
b[k]:= a[i];
k:=k+1;
end; end;
for i:= 1 to n do
a[i]:=b[i];
for i:= 1 to n do
write(a[i],' ');
end.
var
s:string;
i,k,m:integer;
a:array[1..n] of integer;
b:array[1..n] of integer;
begin
for i:=1 to n do
readln(a[i]);
k:=1 ;
for i:=1 to n do
begin
str(a[i],s);
if pos('5',s) = 0 then
begin
b[k]:= a[i];
k:=k+1;
end; end;
for i:= 1 to n do
a[i]:=b[i];
for i:= 1 to n do
write(a[i],' ');
end.
Ответ дал:
0
n можешь поменять
Вас заинтересует
1 год назад
6 лет назад
8 лет назад
8 лет назад
9 лет назад