Какое значение получит переменная y после выполнения алгоритма? x: =1y: =4∗xy: =y+3y: =y∗xy: =y+4y: =y∗xy: =y+5

1const n=30; var a: array [1..n] of integer; i,j,s: integer; begin for i: =1 to n do readln(a[i]); for i: =1 to n do if (a[i]> 99)and(a[i]< 1000) then if (a[i] mod 2)< > 0 then begin s: =s+a[i]; j: =j+1; end; if j=0 then writeln('в массиве нет нечётных трехзначных чисел') else writeln('среднее арифметическое нечётных трехзначных чисел: ',s/j); end. 2 const n=40; var a: array [1..n] of integer; i,x,y: integer; s: real; begin for i: =1 to n do readln(a[i]); x: =abs(a[1]); for i: =1 to n do if (a[i]> 0)and((a[i] mod x)=0) then begin y: =y+1; s: =s+a[i]; end; if y=0 then writeln('в массиве нет нечётных трехзначных чисел') else writeln('среднее арифметическое положительных чисел кратных первому элементу: ',s/y); end. 3 const n=30; var a: array [1..n] of integer; i,s,m: integer; begin for i: =1 to n do readln(a[i]); m: =a[1]; for i: =2 to n do if a[i]> m then m: =a[i]; for i: =1 to n do if a[i]=m then s: =s+1; if s=1 then writeln('в массиве только один максимальный элемент') else writeln('число элементов, равных максимальному: ',s-1); end.

программа на паскале:

program a1;

var i, j : integer;

      s : real;

      a: array [1..5, 1..6] of real;

      b: array [1..6] of real;

begin

  for i: =1 to 5 do

    for j: =1 to 6 do

        readln(a[i,j]);

  for j: =1 to 6 do

    begin

        s: =0;

        for : =1 to 5 do

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

        b[j]: =s

    end;

  write ('полученный массив в: ');

  for j: =1 to d do

    write(b[j]);

  readln

end.