Согласно какой записи идет уменьшение каждого элемента массива в
два раза?​

var a: array[1..100] of integer;

s,i: integer ;

sr: real;

begin

  {vvod massiva a}

    for i: = 1 to 100 do

        sr: =sr+a[i];

    sr: = sr/100;

    for i: = 1 to 100 do

        if a[i]> sr then

          s: =s+1;

    writeln(s);

end.

периметр равен сумме всех сторон

отнимем от первого второе  варенье минус керосин = 150  если керосин в два раза легче, то варенье в два раза тяжелее  2х - х = 150  х=150 - это все керосина  значит банка весит 200 г

а) 54.06  числовой

b) “abc”символьный

c) ложь логический

d) -1.3 числовой

e) “123” символьный

f) 15/06/96  дата