Какое значение будет выведено на экран в результате выполнения программы? var i,k: integer;

a: array[1..10] of integer;

begin

k:=0;

for i:=1 to 10 do

a[i]:=i;

for i:=1 to 10 do

if trunc(a[i]/3)>=3 then k:=k+1;

label1.caption:=inttostr(k);

end;

epincessg11    1   14.12.2020 09:25    2