ИНФОРМАТИКА 6 КЛАСС ТОЛЬКО БЕЗ ХАЛТУРЫЗАРАНЕЕ ОГРОМНОЕ

Найдём значения в ячейках B2, C2, D2.

B2 = B1 + C1 = 1 + 8 = 9C2 = D1 * 3 = 3 * 3 = 9D2 = A1 / 3 = 6 / 3 = 2

Осталось найти A2.

Давайте посмотрим на рисунок. На нём видно, что диаграмма состоит из двух частей: одна очень маленькая, две одинаковые и самая большая.

Давайте посмотрим на имеющиеся данные. Эти две одинаковые части могут принимать значения ячеек B2 и C2, то есть равняться 9. Маленькая часть - 2.

Узнаем, чему равен каждый вариант ответа.

A1 - D1 = 6 - 3 = 3. Маловато для такой большой части.(C1 + B1) / 3 = (8 + 1)  / 3 = 3. Маловато.A1 + C1 + 2 * B1 = 6 + 8 + 2 * 1 = 16. О, нормально.(C1 - A1) / 2 = (8 - 6) / 2 = 1. Ну очень мало, даже меньше самой маленькой части.

Получается, что третий вариант является единственным подходящим.

ответ: A1 + C1 + 2 * B1 (16).

- - - -

Кстати, вот эти две одинаковые части, похоже, являются половиной. Значит, найдём целое:

(9 + 9) * 2 = 18 * 2 = 36

Вычтем известное и получим неизвестную часть:

36 - 9 - 9 - 2 = 16

¯\_(ツ)_/¯

Const
  n=15;
var
  i,np,nn,amax:integer;
  a:array[1..n] of integer;
begin
  Randomize;
  Write('Исходный массив: ');
  np:=0; nn:=0;
  for i:=1 to n do begin
    a[i]:=Random(51)-15;
    Write(a[i],' ');
    if a[i]>0 then Inc(np)
    else if a[i]<0 then Inc(nn);
    end;
  Writeln;
  if np/nn>2 then begin
    amax:=a[i];
    for i:=2 to n do
      if a[i]>amax then amax:=a[i];
    Write('Выходной массив: ');
    for i:=1 to n do begin
      if a[i]<0 then a[i]:=1
      else
        if a[i]>0 then a[i]:=a[i]*amax;
      Write(a[i],' ')
      end;
    Writeln
    end
  else Writeln('В массив изменения не вносятся')
end.

Пример работы программы
Исходный массив: 28 8 21 32 0 26 30 11 35 21 14 6 0 -4 -8
Выходной массив: 980 280 735 1120 0 910 1050 385 1225 735 490 210 0 1 1