Ответ:
700 : 2.45 ≈ 285 композиций
Объяснение:
Var a:array[1..10]of real;
i:integer;
begin
for i:=1 to 10 do begin
a[i]:=random(10,100)/10;
write(a[i]:6);
end;
writeln();
for i:=1 to 10 do
write(sqr(a[i]):6);
<span>end.</span>
For i := 1 to N do begin
if ((a[i]+a[i+1]) mod 2=0)and((a[i]*a[i+1])>40) then
k:=k+1;
end;
<span>writeln(k);</span>
Верные имена файлов: б) и г).