var
a:array[1..10] of integer;
b:array[1..10] of integer;
i:integer;
begin
for i:=1 to 10 do
begin
read(b[i]);
a[i]:=b[i]*45
end;
for i:=1 to 9 do
write(a[i],' ');
write(a[10])
end.
Решение в прикрепленном файле.
1. Сила двигателя 2. Сила трения встречного воздушного потока 3.уровень горизонта 4. Коэффициент трения колес с дорожным покрытием 5. гравитация планеты.
5 весна 6 7 8 лето 9 10 11 12 1 2 зима