Var a,b,t,m,r : integer; function f(x: integer): integer; begin f: =4*(x-5)*(x+3); end; begin a: =-20; b: =20; m: =a; r: =f(a); for t: =a to b do begin if (f(t)< r)then begin m: =t; r: =f(t); end; end; write(r); end.будет -64, объясните пож, каким образом?
var a:array[1..100] of integer;
n,i:byte;ma:integer;
begin
write('n=');readln(n);
for i:=1 to n do begin
write(i,')');readln(a[i])
end;
ma:=a[1];
for i:=1 to n do begin
if a[i]>ma then begin
ma:=a[i]
end
end;
for i:=1 to n do begin
a[i]:=ma
end;
writeln('test n=',n);
for i:=1 to n do begin
writeln(a[i])
end;
readln
end.