Дан фрагмент электронной таблицы. Какое целое число должно быть записано в ячейке В1, чтобы построенная после выполнения вычислений
диаграмма по значениям диапазона ячеек А2:C2 соответствовала рисунку?
Известно, что все значения диапазона А1:C2 имеют один и тот же знак.
А
B
С
1
2.
222
2
С1-B1 B15
- (B1 B14с1)/A1
C1 -20
ой ответ​
у меня экзамен

Program znanija_com;
const
  n = 5;
  m = 5;
  rnd = 9;
type
  tArray = array[1..n, 1..m] of integer;
var
  arr : tArray;
  i,j, sum_ch, sum_nch, sum_diag, max_num, max_index_1, max_index_2 : integer;
begin
  randomize;
  writeln ('Исходная матрица:');
  for i:=1 to n do begin
    for j:=1 to m do begin
      arr[i,j] := random(rnd);
      if arr[i,j] mod 2 = 0 then sum_ch := sum_ch + 1
        else sum_nch := sum_nch + 1;
      write(arr[i, j], ' ');
    end;
    writeln();
  end;
  for i:=1 to n do
    sum_diag := sum_diag + arr[i,i];
  max_num := arr[1,1];
  max_index_1 := 1;
  max_index_2 := 1;
  for i:=1 to n do begin
    for j:=1 to m do begin
      if arr[i, j] > max_num then begin
        max_num := arr[i, j];
        max_index_1 := i;
        max_index_2 := j;
      end;
    end;
  end;
  writeln('Колечество четных элементов равно ', sum_ch);
  writeln('Колечество нечетных элементов равно ', sum_nch);
  writeln('Сумма главной диаганили равна ', sum_diag);
  writeln('Максимальное число равно ', max_num, ' Находится [',max_index_1, ', ', max_index_2, ']');
  readln();
end.

Unit Unit1;
interface
uses  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  Dialogs, StdCtrls;
type  TForm1 = class(TForm)    Button1: TButton;    Edit1: TEdit;    Edit2: TEdit;    Label1: TLabel;   
procedure Button1Click(Sender: TObject); 
private    { Private declarations } 
public    { Public declarations }  end;
var  Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject); 
begin 
 try   
 label1.Caption:=FloatToStr(StrToFloat(Edit1.Text)/StrToFloat(Edit2.Text));   
 except     
On E : EZeroDivide do       
ShowMessage('Деление на 0 запрещено : ');   
end;
end;
end.