Поиск информации с использование компьютера. программные поисковые системы.​

 

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.

 

   

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.