По экрану слева направо перемещается жёлтый треугольник, а справа налево – красный квадрат. разработайте программу для выполнения этой анимации.

Идею электронных таблиц впервые сформулировал американский учёный австрийского происхождения рихард маттезих (нем. richard mattesich), опубликовав в 1961 г. исследование под названием «budgeting models and system simulation»[3]. концепцию дополнили в 1970 г. пардо (. rene pardo) и ландау (. remy landau), подавшие заявку на соответствующий патент (u.s. patent 4 398 249). патентное ведомство отклонило заявку, но авторы через суд добились отмены этого решения. общепризнанным родоначальником электронных таблиц как отдельного класса по является дэн бриклин, который совместно с бобом фрэнкстоном разработал программу visicalc в 1979 г. эта электронная таблица для компьютера apple ii стала популярной, превратив персональный компьютер из игрушки для технофилов в массовый инструмент для бизнеса. впоследствии на рынке появились многочисленные продукты этого класса — supercalc, microsoft multiplan, quattro pro, lotus 1-2-3, microsoft excel, openoffice.org calc, таблицы appleworks и gnumeric, минималистический spread32.

program bkmyehf; const n=100; var a: array[1..n] of integer; temp,sum, i,j: integer;   begin  sum: =0;   randomize;   writeln('*** alphaues is ***');   for i: =1 to n do       begin             a[i]: =random(100)+1;           sum: =sum+a[i];       end;   if sum mod 2 = 0 then      begin           writeln('сумма элементов чётная');           for i: =2 to n do               begin                     if (a[i]> 0) and (i mod 2 = 0) then a[i]: =0;               end;       end      else      begin          writeln('сумма элементов нечётная');           temp: =a[1];           a[1]: =a[i];           a[i]: =a[1];       end;   for i: =0 to 9 do      begin          for j: =1 to 10 do              write(a[i*10+j]: 4);           writeln();       end; end.