У тебя не видно адресов ячеек, поэтому попробую так объяснить:
В ту ячейку, где высвечивается цена в руб. вбей формулу
=цена в долларах * на курс доллара,
при этом на курс доллара надо сделать абсолютную ссылку, чтобы ее значение не менялось при протягивании формулы вниз. Надо поставить знак $ в адрес ячейки, например, $D$1. Это можно сделать при помощи клавиши F4
const
N = 10;
Elem = 666;
var
a: array [1..N+1] of integer;
K: integer;
begin
for var i:=1 to N do
a[i] := Random(100);
writeln('Элементы массива a: ');
for var i:=1 to N do
write(a[i],' ');
writeln;
K := Random(1,N);
for var i:=N downto K do
a[i+1] := a[i];
a[K] := 666;
writeln('После вставки элемента ',Elem,' в позицию ',K,':');
for var i:=1 to N+1 do
write(a[i],' ');
writel
Program primer;
Var
i:integer;
begin
i:=-4;
repeat
writeln(i,' ',3*i);
i:=i+2;
until i>4;
end.
Var a, b, c,rez: real;
begin
writeln( 'Введите три числа' );
read ( a, b, c );
rez := ( a + b + c ) / 3
writeln ('ср. знач.=', rez:0:2 );
<span>end.</span>