Даны 2 числа найти среднее арифметическое и среднее их модули

   

program avggm;

uses crt;

var a,b,res: integer

 

begin

      clrscr;

      writeln('введите а и b ' );

 

      readln(a,b);

 

 

        res: =(sqrt(a*b));    

      writeln('модуль числа а: ', abs(a));  

 

        writeln('модуль числа b: ', abs(b));  

 

        writeln('среднее арифметическое: ', ((a+b)   div 2));

        writeln('среднее : ', res);  

 

        readkey;

 

end.

 

. 

Const       handsfree = true; n=5; var       a: array[1..5, 1..5] of real;       max, min, temp: real;       sum, product, harmonic: real;       i, j, m, n, k: integer; begin       writeln('данные матрицы: ');       for i : = 1 to n do       begin               for j : = 1 to n do                       if handsfree then begin                               a[i, j] : = random(100) - 50;                               write(a[i, j]: 4, ' ')                       end                       else                               read(a[i, j]);               writeln;       end; end.

Const       handsfree = true; n=5; var       a: array[1..5, 1..5] of real;       max, min, temp: real;       sum, product, harmonic: real;       i, j, m, n, k: integer; begin       writeln('данные матрицы: ');       for i : = 1 to n do       begin               for j : = 1 to n do                       if handsfree then begin                               a[i, j] : = random(100) - 50;                               write(a[i, j]: 4, ' ')                       end                       else                               read(a[i, j]);               writeln;       end; end.