Помогите, пожалуйста!!!! Паскаль дано четырехзначное число, заменить нулем максимальную цифру
Answers & Comments
yasadc
Uses crt; var a:integer; b:array[1..4] of integer; max,i,k,t:integer; begin readln(a); k:=1; repeat for i:=k to k do b[i]:=a mod 10; a:=a div 10; inc(k); until a=0; max:=0; for i:=1 to 4 do if b[i]>max then begin max:=b[i]; t:=i; end; b[t]:=0; for i:=4 downto 1 do write(b[i]); end.
Answers & Comments
var a:integer;
b:array[1..4] of integer;
max,i,k,t:integer;
begin
readln(a);
k:=1;
repeat
for i:=k to k do
b[i]:=a mod 10;
a:=a div 10;
inc(k);
until a=0;
max:=0;
for i:=1 to 4 do
if b[i]>max then begin max:=b[i]; t:=i; end;
b[t]:=0;
for i:=4 downto 1 do
write(b[i]);
end.