укажіть формулу яку можна записати у клітинку F3 для обчислення середнього арифметичного чисел діапазону клітинок A3:E3 в середовищі табличного процесора MS Excel
// PascalABC.NET 3.1, сборка 1230 от 27.04.2016 begin Println('*1*'); var a:=ArrRandom(10,-99,99); a.Println; var imin:=a.IndexMin; if imin=a.Length-1 then a:=a+Arr(100) else a:=a[:imin+1]+Arr(100)+a[imin+1:]; a.Println; Println('*2*'); a:=ArrRandom(10,-99,99); a.Println; var imax:=a.IndexMax; if imax=a.Length-1 then a:=a[:imax] else a:=a[:imax]+a[imax+1:]; a.Println end.
var i: word; //Было предпочтительнее использовать byte, //ведь от 3 до 7 считаем, но тип word старее, //а к byte могут придраться
begin SetBrushColor(clBlue); //Проставляем цвет кисти, я не //нашёл функции рисования круга, //где можно было бы указать цвет for i := 3 to 7 do begin FillCircle(200, 200, 10 * i); //Рисуем круг, радиус от 30 до 70 sleep(500); //Поскольку круги в конечном счёте всё равно //затираются более большими, будем выводить //с задержкой end; end.
begin
Println('*1*');
var a:=ArrRandom(10,-99,99); a.Println;
var imin:=a.IndexMin;
if imin=a.Length-1 then a:=a+Arr(100)
else a:=a[:imin+1]+Arr(100)+a[imin+1:];
a.Println;
Println('*2*');
a:=ArrRandom(10,-99,99); a.Println;
var imax:=a.IndexMax;
if imax=a.Length-1 then a:=a[:imax]
else a:=a[:imax]+a[imax+1:];
a.Println
end.
Тестовое решение:
*1*
-52 -66 -56 55 -94 -53 28 -94 61 61
-52 -66 -56 55 -94 100 -53 28 -94 61 61
*2*
62 -80 91 -85 -59 -58 20 23 -91 53
62 -80 -85 -59 -58 20 23 -91 53