4. Как можно обойтись без использования функции AVERAGE, если нужно вы-числить среднее арифметическое для диапазона C2:D55, полностью запол-ненного числами? Запишите формулу.

матрица заполняется случайно

программа на pascalabc

Var

max,min,mina,minb,maxa,maxb,a,b,c: integer;

mas: array[1..3,1..3] Of integer;

Begin

writeln('до :');

For a:=1 To 3 Do

For b:=1 To 3 Do

Begin

mas[a,b] := random(100);

If mas[a,b]>max Then

Begin

max := mas[a,b];

maxa := a;

maxb := b;

End;

If (min=0)Or(mas[a,b]<min) Then

Begin

min := mas[a,b];

mina := a;

minb := b;

End;

write(mas[a,b],' ');

End;

c := mas[maxa,maxb];

mas[maxa,maxb] := mas[mina,minb];

mas[mina,minb] := c;

writeln;

writeln('после :');

For a:=1 To 3 Do

For b:=1 To 3 Do

write(mas[a,b],' ');