Anton19947

Дана цифра М. Удалить из записи каждого элемента массива эту цифру.

Var A:array[1..100] of integer;
i,n,m:byte;
Function F(n:integer):integer;
Var s:string;
i,k:integer;
Begin
Str(n,s);
For i:=Length(s) downto 1 do
if s[i]=chr(ord('0')+m) then Delete(s,i,1);
if s='' then F:=0
else
Begin
Val(s,n,k);
F:=n;
End;
End;
Begin
write('Введите размерность массива: ');readln(n);
writeln('Исходный');
For i:=1 to n do
Begin
A[i]:=random(31)-15;
write(A[i]:4);
End;
writeln;
write('Введите цифру M: ');readln(m);
writeln('Преобразованный');
For i:=1 to n do
Begin
A[i]:=F(A[i]);
write(A[i]:4);
End;
readln;
End.

Léon

Блок-схема:

Миниатюры