Каковы возможности пользователя для обработки сигнала?

program xxx;

  var i, j, k, min : integer;

              a: array[1..10, 1..20] of integer;

              b: array[1..10] of integer;

begin

    for i: =1 to 10 do

        for j: =1 to 20 do

              readln(a[i,j]);

    for i: =1 to 10 do

      begin

        b[i]: =0;

        for j: =1 to 20 do

            b[i]: =b[i]+a[i,j];

      end;

    min: =b[1]; k: =1;

    for i: =2 to 10 do

        if b[i]< min then begin max: =b[i]; k: =i end;

    writeln('наименьшая сумма элементов =', min);

    writeln('она находится в строке -', k);

    readln

end.

var

mas : array[1..15] of integer;

i: integer;

begin

for i: =1 to 15 do

begin

  mas[i] : = random(40)-20;

  if (mas[i] mod 2 = 1) then mas[i]: =mas[i]/2;

  if (mas[i] mod 2 = 0) then mas[i]: =mas[i]*3;

end;

end;

1) 

var

s: string;

begin

s: ='пробел';

writeln(s);

delete(s,4,1);

insert('д',s,4);

writeln(s);

end.

2)

var

i: integer;

a,b: string;

begin

readln(a);

b: ='';

for i: =1 to length(a) do

b: =b+a[i]+' ';

writeln(b);

end.

3)

var

a: string;

begin

readln(a);

if a[2]=a[4] then writeln('равны')

else  writeln('не равны');

end.

был уже такой вопрос отвечен.

от себя

скорость обработки, соответственно и обьемы обработки, обработка по требованию в минимальное время, что позволяет сразу использовать результаты в дальнейших операциях, точность рассчетов