Какое значение будет выведено на экран в результате выполнения программы?
var i,k: integer;
a: array[1..10] of integer;
begin
k:=1;
for i:=1 to 10 do
a[i]:=i;
for i:=1 to 10 do
if trunc(a[i]/k)<2 then k:=k+1;
label1.caption:=inttostr(k);
end;

olegtab34    1   27.10.2020 09:26    7