Постройте таблицы значения для указанных функций: 1.y=x^2-5x-3, x принадлежит [ -3; 3], вводится значение шага h. 2.y=2+3x^3-7/x, x принадлежит [a; b], вводятся значения a, b и количество точек 3x^3-7/x-дробью

// pascalabc.net 3.2, сборка 1345 от 24.11.2016 // внимание! если программа не работает, обновите её версию! begin   var a: =readarrinteger('-> ',readinteger('n='));   writeln('максимальный элемент № ',a.indexmax+1,' равен ',a.max);   writeln('количество равных 4 элементов: ',a.where(x-> x=4).count);   writeln('сумма элементов массива равна ',a.sum) end. пример n= 7 -> -5 3 0 4 9 4 4 максимальный элемент № 5 равен 9 количество равных 4 элементов: 3 сумма элементов массива равна 19

Во вложении файл с рабочей книгой ms excel 2003 sub abcd()       dim n as integer, a(1 to 8) as integer       dim r as range       n = 8       imax = 1       set r = range(cells(1, 1), cells(2, 8))       r.clearcontents 'очистка области       r.interior.color = rgb(255, 255, 255) 'очистка цвета заливки       for i = 1 to n               a(i) = int(30 * rnd)               if a(i) > a(imax) then imax = i               cells(1, i) = a(i)       next       t = a(imax)       cells(1, imax).interior.color = rgb(204, 255, 255)       range(cells(1, 1), cells(1, imax - .color = rgb(255, 255, 153)       for i = imax - 1 to 1 step -1               a(i + 1) = a(i)       next       a(1) = t       for i = 1 to n               cells(2, i) = a(i)       next       cells(2, 1).interior.color = rgb(204, 255, 255)       range(cells(2, 2), cells(2, .color = rgb(255, 255, 153) end sub