1) Ответ 2, <span>i=j
2) Ответ 3. в 6 раз</span>
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.
var a: real;
begin
readln(a);
writeln((2 * a * a * a + 8)/(3 * a));
end.
.............................................................