144568894478
3. Складіть програму для заміни найбільшого елемента послідовності з 10 чисел нулем. var i,n:integer; f1,f2,f3:integer; begin read(n); f1:=1; f2:=1; write(f1,' '); for i:=2 to n do begin write(f2,' '); f3:=f1+f2; f1:=f2; f2:=f3; end; end.ї
Answers & Comments
Ответ:
begin
var a:=ArrRandom(10,1,50);
a.Println;
var b:=a.Max;
a.Replace(b,0);
a.Println;
end.
var i,n:integer; f1,f2,f3:integer;
begin
read(n);
f1:=1; f2:=1; write(f1,' ');
for i:=2 to n do
begin
write(f2,' ');
f3:=f1+f2;
f1:=f2; f2:=f3;
end;
end.ї