ответить на 3 вопроса кратко: 1. технология хранения , поиска и сортировки данных ( базы данных, информационные системы табличные иерархические и сетевые базы данных. 2. компьютерная графика. аппаратные средства ( монитор, видеокарта, видеоадаптер, сканер и программные средства ( растровые и векторные графические редакторы, средства деловой графики, программы анимации и др.) 3. программные средства и технологии обработки числовой информации ( электронные калькуляторы и электронные таблицы).

const

 nn = 25; // максимум слов

var

 a: array[1..nn] of string[20];

 

procedure Parser(s: string; var k: integer);

var  

 i,n: integer;

 w: string;

begin  

 w := '';

 k := 0;

 n := length(s);

 for i := 1 to n do

   if s[i] <> ' ' then w := w + s[i]

   else

     if length(w) > 0 then

     begin

       k := k + 1;

       a[k] := w;

       w := '';

     end;

 if length(w) > 0 then

 begin

   k := k + 1;

   a[k] := w;

 end;

end;

 

var

 s: string[254];

 i, k: integer;

 

begin

 Readln(s);

 Parser(s, k);

 for i := 1 to k do

   if Pos('ар', a[i]) > 0 then

     write(a[i], ' ');

end.

Программа уровня Турбо Паскаль

[any] Pascal: (без хранения введённых чисел => "эффективная")

var a, i, x: integer; begin  for i := 1 to 6 do  begin    read(a);    if a>0 then x := x + 1    else if a<0 then x := x - 1  end;  if x>0 then write('Больше положительных')  else if x<0 then write('Больше отрицательных')  else write('Одинаково')end.

PascalABC.NET: (с хранением введённых чисел в массиве)

## var a := ReadArrInteger(6); var x := a.Sum(x -> x>0 ? 1 : -1); if x=0 then Write('Одинаково') else Print('Больше', x>0 ? 'положительных' : 'отрицательных')

Пример работы: