=С$5-$B3, проверяла в екселе
Объясния: если в екселе использовать значок $ то ми фиксируем или столбец или строку.
В нашем случае С$5 ми зафиксировали 5, а в $B3 ми зафиксировали В.
Наша формула стояла в клетке D5, а когда ми скопировали её в Е6. То в первой части формулы тоесть С$5 в формуле столбец с C передвинулся на D потому что мы его не фиксировали, а 5 так и осталось потому что оно зафиксированное. Тогда получилось D$5. А другая часть формулы то есть $В3 наоборот столбец В так и остался, а с 3 стала 4. И у нас получилось $В4. Все передвинулись только на одину букву и цифру потому что ми переместили формулу с D5 в E6 а кто на один столбец вправо и на одну цифру вниз.
Program Stoimost;
var a,b,s,c :integer;
begin
writeln('Введите стоимость за минуту разговора ');
read(b );
writeln('Введите количество минут ');
read(s);
writeln('Если покупка была совершена в субботу, то введите цифру 1,если в воскресенье, то введите цифру 2, а если в другие дни, то 0 ');
read(a);
if a:=1 then
c:= b*s*0,7;
if a:=2 then
c:=b*s*0,65;
if a:=2 then
c:=b*s;
write(c);
end.
скорее всего не правильно, но попробуй
var a: array [1..10] of integer;
i: integer; ss: real; cc: byte;
begin
ss:=0;
cc:=0;
for i:=1 to 10 do begin
write('A[',i,'] = ');
readln(a[i]);
if a[i]>5 then begin
ss:=ss+a[i];
inc(cc);
end;
end;
writeln;
writeln('Среднее арифметическое = ',ss/cc);
end.