1. допишите следующую программу, реализовав используемые в ней процедуры. программа считает поэлементную сумму двух векторов. какие параметры по значению, а какие по ссылке и почему? const n=5; {размерность векторов} type vector=array[1..n] of integer; {реализация процедур: readvector(var a: vector) -ввод вектора. writevector(a: vector) -вывод вектора. sum(a, b: vector; var s: vector) -поэлементное суммиров. векторов, s[i]: =a[i]+b[i]} {основная программа} var a, b, {исходные вектора} s: vector; {сумма векторов a и b} begin readvector(a); readvector(b); sum(a, b, s); writevector(a); writevector(b); writevector(s); end. 2. допишите в предыдущую программу функции для нахождения: a) максимального элемента вектора; b) суммы элементов вектора.

Буду считать, что да, он самый востребованный тут =) 1) var a: array [0..9] of integer;     i, o: integer; begin       for i : = 1 to 20 do       begin           if (i mod 4 = 0) then a[o] : = i           else if (i mod 4 = 2) then a[o] : = -1 * i;           if (i mod 4 mod 2 = 0) then o : = o + 1;       end;             for i : = 0 to 9 do           writeln(a[i]); end.2)var a: array [0..30] of integer;     i, o: integer;     s: string; begin      for i : = 1 to 30 do      begin          a[i] : = random(6) - 3;       end;       writeln('массив: ');       for i : = 0 to 30 do      begin          writeln('[', i, '] => ', a[i]);           if (a[i] > 0) then          begin              o : = o + a[i];               s : = s + inttostr(i) + ' ';           end;       end;       writeln('номера положительных чисел: ', s); end.

A) var a: string;     i: integer; begin       readln(a);       for i : = 1 to length(a) do           if (a[i] < > upcase(a[i])) then             write(a[i], ' '); end.b)var a: string;     i, p: integer;     q: boolean; begin      readln(a);       for p : = 0 to 9 do          for i : = 1 to length(a) do              if (a[i] = inttostr(p)) then                    q : = true;       writeln(q); end.c)var a: string;     i, p, u: integer;     o: array [0..5] of char; begin      readln(a);       o[0] : = '('; o[1] : = ')'; o[2] : = '{'; o[3] : = '}'; o[4] : = '['; o[5] : = ']';       for p : = 0 to 5 do          for i : = 1 to length(a) do              if (a[i] = o[p]) then                    u : = u + 1;       writeln(u); end.d)var a: string;     i, p: integer;     o: array [0..7] of char; begin      readln(a);       o[0] : = '('; o[1] : = ')'; o[2] : = '? '; o[3] : = '! '; o[4] : = '"'; o[5] : = '.'; o[6] : = ','; o[7] : = ',';       for i : = 1 to length(a) do          for p : = 0 to 7 do              if (a[i] = o[p]) then                    writeln(a[i]); end.ну вот: ) о, мой мозг, как же тебе досталось!   ~_~