Уважаемые однофорумчане выполнить по it буду , даже материально в электронных таблицах excel создайте таблицу значений функции у(х) для х [-2; 2] с шагом 0, 1. построить график этой функции. y={ x sin2x x< -0.3 3x+9, x > или =-0.3

Const   n = 50; // количество чиселvar   k: array [1..n] of integer;   i, j, n1, n2, minr, a, b: integer; begin   writeln(n, ' ', ': d');   a : = random(1000);   b : = random(1000);   minr : = 10000;   for i : = 1 to n do       k[i] : = a + random(b);   for i : = 1 to n do       for j : = 1 to n do           if ((abs(k[i] - k[j])) < minr) and (k[i] < > k[j]) then           begin               minr : = abs(k[i] - k[j]);               n1 : = i;               n2 : = j;           end;   writeln(n1, ' ', n2); end.

Type mas=array[1..93] of real; var i,w: byte; season: mas; t: real; function temp(ses: mas; d: byte): real; var i: byte; s: real; begin s: =0; for i: =1 to d do  s: =s+ses[i]; temp: =s; end; begin repeat writeln('год високосный? 1-да 0-нет'); read(w); if (w< > 1) and (w< > 0) then w: =2; until w< > 2; writeln('введите зимние  температуры за каждый день: '); for i: =1 to 90+w do  readln(season[i]); t: =temp(season,90+w); writeln('среднее арифметическое зимних температур:   ',t/(90+w): 5: 3); writeln('введите весенние температуры за каждый день: '); for i: =1 to 92 do  readln(season[i]); t: =temp(season,92); writeln('среднее арифметическое весенних температур:   ',t/92: 5: 3); writeln('введите летние температуры за каждый день: '); for i: =1 to 92 do  readln(season[i]); t: =temp(season,92); writeln('среднее арифметическое летних температур:   ',t/92: 5: 3); writeln('введите осенние температуры за каждый день: '); for i: =1 to 92 do  readln(season[i]); t: =temp(season,91); writeln('среднее арифметическое осенних температур: ',t/91: 5: 3); end.