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>
1)Алгоритм в паскале, если все скорости известны
program avto;var a,b,c,d:real;beginwriteln ('Введите 3 скорости автомобиля');read (a,b,c);d:=(a+b+c)/3;write ('Средняя скорость автомобиля:', d);end.