Цикл вида for i:=a to b do (Pascal) выполняется b-a+1 раз.
Цикл вида for x=a to b step h (Basic) выполняется FIX((b-a)/h)+1 раз, где FIX - операция получения целой части числа путем отбрасывания его дробной части.
Program zz;var a:array[1..15] of integer;i:integer;beginfor i:=1 to 15 dobegina[i]:=random(5,50);write(a[i],' ');endend.
Держи '................
...............