Цена, руб. Объем спроса (млн. банок в год) Объем предложения (млн. банок в год) 14 70 10
16 60 30
24 50 50
32 40 70
40 30 90
Задание :
1. Изобразить кривую спроса и кривую предложения по данным таблицы
2. Если рыночная цена за банку фасоли будет равна 18 руб., что характерно для данного рынка - излишки или дефицит?
3. Чему равна равновесная цена на этом рынке?

A) =D3+$A$2
b) =B2+$a$2
$ - это абсолютная ссылка, т.е. если $ стоит перед буквой, то не меняется буква, куда бы ячейку не скопировали, если $ стоит перед цифрой, то не меняется цифра, куда бы ячейку не скопировали. Если $  стоит и перед буквой и перед цифрой, то значения ячейки как бы "заморожены", т.е не меняется ни буква, ни цифра.
Если знака $ нет, то при копировании ячейки влево, меняется буква (увеличивается), вправо - уменьшается. При копировании ячейки вниз увеличивается цифра, на столько значений, на сколько ячеек скопировано. Цифра уменьшается, если копировали ячейку вверх.

program mn;

uses crt;

const m=7;n=9;

var mas:array[1..m,1..n] of Integer ;

m1, m2:array[1..n] of Integer ;

i, j, k:Integer;

begin

Randomize;

write('Исходный массив:') ;

for i:=1 to m do begin

writeln;

for j:=1 to n do begin

mas[i, j]:=random(100);

write(mas[i, j]:3) end end ;

j:=0;

repeat

for i:=1 to n do begin

m1[i]:=mas[1+j,i];

m2[i]:=mas[m-j,i];

mas[1+j,i]:=m2[i];

mas[m-j,i]:=m1[i]; end;

j:=j+1

until j>m div 2;

writeln;

write('Преобразованный массив:') ;

for i:=1 to m do begin

writeln;

for j:=1 to n do

write(mas[i, j] :3) end;

readln;

end.

Объяснение:

В разделе const задаем нужный размер исходного массива.