3.2 построить модель информации по всем требованиям рисунок с конкретным содержанием в координатной сетке ! ​

Const  n = 10; var   a: array [1..n] of integer;   i: integer; begin   // ввод и обработка массива   for i : = 1 to n do begin     write('введите ', i, ' элемент -> ');     readln(a[i]);     if (a[i] mod 2 = 0) then       a[i] += 2     else       a[i] : = 0   end;   // вывод полученного массива на экран   write('массив: ');   for i : = 1 to n do begin     write(a[i], ' ');   end; end.

Option base 1 dim a(10) as single, b(10) as single, x(10) as single randomize timer for i = 1 to 10     a(i) = 30 * rnd - 15 next i for i = 1 to 10     b(i) = 40 * rnd - 20 next i cls print "a", "b", "x" for i = 1 to 10     if a(i) = 0 then           x(i) = 1e+10     else           x(i) = b(i) / a(i)     end if     print a(i), b(i), x(i) next i тестовое решение: a                        b                        x -5.504717          19.41665        -3.527274 -5.233851        -11.24631          2.148764 -5.154725          2.927625        -.5679499   5.057724        -8.649354        -1.710128 -6.304109        -19.25289          3.054023 -1.920151          6.061134        -3.156593 -10.34241          17.10881        -1.654238   13.86053          .4965448          3.582438e-02 -4.931755          8.241055        -1.671019   8.120502          8.78438            1.081753