Составьте программу для рисования рыбки(рис.3.8)
​

f8 формула: =b12*5. b5 формула: =а4+d6. c7 формула: =d6/$a$2. f9 формула: =$c$5-g1. e5 формула: =c$5-$e9.

не оскорбляю людей,а так же не ругаюсь с друзьями.не ругаюсь " словами".не ворую и не бью.

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

i,ms,ps: integer;

begin

  {vvod massiva a}

  for i: = 1 to 100 do

    if a[i] > 0 then ps: =ps+a[i]

    else ms: =ms+a[i];

  writeln(ps,ms);

end.

в первом будет такая закономерность +2,*2,-2 и соответственно 1,3,6,4,6; во второй будет такая: -2; +3; -   9,7,10,8,11; и последняя -1,-1,+5,-1,-,2,1,6,5,4,3.вот и все)