Нужно решить 10 из огэ по информатике.​

ответ:

6

объяснение:

только 6 значений в массиве больше чем 3.

  uses crt;       var a, b, x, y, newa, newb, newa2, newb2: integer;   begin      write('a='); read(a);       write('b='); read(b);         newa: =3*a; newb: = 3*b;         newa2: =sqr(a); newb2: =sqr(b);           if (a> 0) and (b> 0) then write('newa = ',newa,' | ', 'newb = ',newb)                                                    else write('newa = ',newa2,' | ', 'newb = ',newb2);   end.

Type   v = array of integer; function prodpos(a: v): longint; var   i: integer; begin   result : = 1;   foreach var p: longint in a do       if p > 0 then result : = result * p end; procedure initmas(var a: v; title: string); var   i: integer; begin   writeln(title, '(', length(a, 0), '). вводите элементы.');   for i : = 0 to length(a, 0) - 1 do       read(a[i]) end; procedure getmas(var a: v; dim: integer; title: string); begin   setlength(a, dim);   initmas(a, title); end; const   n1 = 10;   n2 = 15; var   a, b: v; begin   getmas(a, n1, 'массив а');   getmas(b, n2, 'массив b');   writeln('большее произведение положительных ', max(prodpos(a), prodpos( end. тестовый прогон: массив а(10). вводите элементы. 1 1 1 1 2 1 2 2 1 5 массив b(15). вводите элементы. 1 0 2 4 0 1 -3 -4 1 2 3 1 -3 0 2 большее произведение положительных 96