с информатикой, мне сложно даётся данная тема: дан одномерный массив размерностью 30. Найти сумму элементов, больших 100

Основа взята на сайте progmatem.ru. К сожалению, автор статьи там не был указан.

// PascalABC.NET 3.1, сборка 1204 от 24.03.2016
uses graphABC;
const
  w=1000;
  h=600;

function f(x:real):=0.5*x*cos(2*x);

begin
  SetWindowSize(w,h);
  // поле для графика в окне
  var xLeft:=50;
  var yLeft:=50;
  var xRight:=w-xLeft;
  var yRight:=h-yLeft;
  // интервалы по осям
  var ax:=-12.0;
  var bx:=12.0;
  var hx:=1.0;
  var ay:=-6.5; // минимум f(x) с запасом
  var by:=6.5;
  var hy:=0.5;
  // масштабы по осям
  var mx:=(xRight-xLeft)/(bx-ax);
  var my:=(yRight-yLeft)/(by-ay);
  // точка начала координат графика
  var x0:=xLeft+Trunc(abs(ax)*mx);
  var y0:=yRight-Trunc(abs(ay)*my);
  // рисование координатных осей
  Line(xLeft,y0,xRight+10,y0);
  Line(x0,yLeft-10,x0,yRight);
  SetFontSize(12); SetFontColor(clBlue);
  TextOut(xRight+15,y0-10,'X');
  TextOut(x0-4,yLeft-30,'Y');
  SetFontSize(8); SetFontColor(clGreen);
  // рисование засечек
  var s:string;
  for var i:=1 to Round((bx-ax)/hx)+1 do begin
    var num:=ax+(i-1)*hx;
    var x:=xLeft+Trunc(mx*(num-ax));
    Line(x,y0-3,x,y0+3);
    Str(num,s);
    if abs(num)>1E-15 then TextOut(x-TextWidth(s) div 2,y0+10,s)
    end;
  for var i:=1 to Round((by-ay)/hy)+1 do begin
    var num:=ay+(i-1)*hy;
    var y:=yRight-Trunc(my*(num-ay));
    Line(x0-3,y,x0+3,y);
    Str(num,s);
    if abs(num)>1E-15 then TextOut(x0+7,y-TextHeight(s) div 2,s)
    end;
    TextOut(x0-10,y0+10,'0');
  // собственно график
  var xi:=ax;
  while xi<=bx do begin
    var yi:=f(xi);
    var x:=x0+Round(xi*mx);
    var y:=y0-Round(yi*my);
    if (y>=yLeft) and (y<=yRight) then SetPixel(x,y,clRed);
    xi+=1e-3
    end
end.

*******************************************
// PascalABC.NET 3.1, сборка 1204 от 24.03.2016
uses graphABC;
const
  w=1000;
  h=600;

function f(x:real):=8*sin(x)*sin(2*x);

begin
  SetWindowSize(w,h);
  // поле для графика в окне
  var xLeft:=50;
  var yLeft:=50;
  var xRight:=w-xLeft;
  var yRight:=h-yLeft;
  // интервалы по осям
  var ax:=-15.0;
  var bx:=15.0;
  var hx:=1.0;
  var ay:=-6.5; // минимум f(x) с запасом
  var by:=6.5;
  var hy:=0.5;
  // масштабы по осям
  var mx:=(xRight-xLeft)/(bx-ax);
  var my:=(yRight-yLeft)/(by-ay);
  // точка начала координат графика
  var x0:=xLeft+Trunc(abs(ax)*mx);
  var y0:=yRight-Trunc(abs(ay)*my);
  // рисование координатных осей
  Line(xLeft,y0,xRight+10,y0);
  Line(x0,yLeft-10,x0,yRight);
  SetFontSize(12); SetFontColor(clBlue);
  TextOut(xRight+15,y0-10,'X');
  TextOut(x0-4,yLeft-30,'Y');
  SetFontSize(8); SetFontColor(clGreen);
  // рисование засечек
  var s:string;
  for var i:=1 to Round((bx-ax)/hx)+1 do begin
    var num:=ax+(i-1)*hx;
    var x:=xLeft+Trunc(mx*(num-ax));
    Line(x,y0-3,x,y0+3);
    Str(num,s);
    if abs(num)>1E-15 then TextOut(x-TextWidth(s) div 2,y0+10,s)
    end;
  for var i:=1 to Round((by-ay)/hy)+1 do begin
    var num:=ay+(i-1)*hy;
    var y:=yRight-Trunc(my*(num-ay));
    Line(x0-3,y,x0+3,y);
    Str(num,s);
    if abs(num)>1E-15 then TextOut(x0+7,y-TextHeight(s) div 2,s)
    end;
    TextOut(x0-10,y0+10,'0');
  // собственно график
  var xi:=ax;
  while xi<=bx do begin
    var yi:=f(xi);
    var x:=x0+Round(xi*mx);
    var y:=y0-Round(yi*my);
    if (y>=yLeft) and (y<=yRight) then SetPixel(x,y,clRed);
    xi+=1e-3
    end
end.

Часть А

В заданиях части А выбрать только один ответ.

А1. Текстовый редактор – это приложение

1) для создания мультимедийных документов;

2) для создания, редактирования и форматирования текстовой информации;

3) для обработки изображений в процессе создания доклада.

А2. Текстовая информация-это

1) информация, представленная в форме письменного текста;

2) рисунки схемы, графики;

3) полный набор букв алфавита.

А3. Какие операции выполняют при редактировании текста?

1) Совершают операции по оформлению текста текст, исправляют ошибки, вносят изменения.

3) Выводят текст на печать.

А4. Какие из перечисленных ниже расширений соответствуют текстовому файлу?

1) exe, com, bat;

2) gif, bmp, jpg;

3) txt, doc, rtf.

А5. Какую программу нужно выбирать для обработки текстовой информации?

1) MS Excel;

2) MS Word;

3) Paint.

А6. При задании параметров страницы в текстовом редакторе устанавливаются:

1) гарнитура, начертание, размер;

2) поля, ориентация;

3) отступ, интервал.

А7. В каком из перечисленных ниже предложений правильно расставлены пробелы между словами и знаками препинания?

1) Слово не воробей , вылетит— не поймаешь!

2) Слово не воробей, вылетит — не поймаешь!

3) Слово не воробей, вылетит-не поймаешь !

4) Слово не воробей , вылетит —не поймаешь !

А8. Что такое абзац?

1) Абзац — это фрагмент текста, процесс ввода которого закончился нажатием на клавишу Esc.

2) Абзац — это фрагмент текста, процесс ввода которого закончился нажатием на клавишу Space.

3) Абзац — это фрагмент текста, процесс ввода которого закончился нажатием на клавишу Enter.

А9. К группе свойств символов можно отнести:

1) шрифт, размер шрифта, начертание и цвет;

2) выравнивание, размер шрифта, междустрочный интервал, цвет;

3) выравнивание, отступ первой строки, междустрочный интервал, отступ слева и справа, интервалы перед и после.

А10. Объем текстового файла вычисляется по формуле

1) I = K * i

2) N=2i

3) N=2*i

4) I=N+K

Так?