Что нужно изменить во 2-ом решении по сравнению с 1-ым решением ? №1 дан двумерный массив. определить сумму элементов второго столбца массива, больших 10. решение №1. program sum; var a: array[1..10, 1..10] of integer; i, j, s: integer; begin s : = 0; for i : = 1 to 10 do begin for j : = 1 to 10 do begin a[i, j] : = random(20) + 1; write(a[i, j]: 3); if (j = 2) and (a[i, j] > 10) then s : = s + a[i, j]; end; writeln; end; writeln('сумма элементов 2го столбца больших 10 равна', s); readln end. №2 дан двумерный массив. определить сумму элементовзаданного столбца массива, больших 10. решение №2.

добавить ввод номера столбца.

строку if (j = 2) and (a[i, j] > 10) then заменить

на if (j = m) and (a[i, j] > 10) then  где m- введенный номер столбца.

var

  a: array[1..100, 1..100] of real;

  n, m, i, j: integer;

  sr: real;

begin

  write('введите количество строк матрицы '); readln(m);

  write('введите количество столбцов матрицы '); readln(n);

  writeln('исходный массив: ');

  sr : = 0;

  for i : = 1 to m do

  begin

      for j : = 1 to n do

      begin

          a[i, j] : = random(101) - 50;

          write(a[i, j]: 5: 0);

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

      end;

      writeln;

  end;

  sr : = sr / (n * m);

  writeln('среднее арифметическое равно ', sr);

  writeln('элементы больше среднего арифметического: ');

  for i : = 1 to m do

      for j : = 1 to n do

          if a[i, j] > sr then

              writeln('a[', i, ', ', j, '] = ', a[i, j]);

end.

 

program mas1;

  uses crt;

  const n: =10;

  type ar=array [1..n] of real;

  var v: ar;

        s,max: real;

        i: integer;

begin

    clrscr;

    s: =0;

    max: =0;

    i: =1;

    for i: =1 to n do

    begin

    v[i]: =50*random-15;

    s: =s+v[i];

    if max< v[i] then max: =v[i];

    end;

    writeln ('s= ', s: 6: 2,'   max=   ', max);

readln;

end.