Вказати правильно записані адреси діапазонів комірок: * АС10—ВС24;
Е12;Е25;
В23-Р34;
A22:B45
2)Вказати в яких комірках записані формули без використання функції *
1 =ЕСЛИ(В1>ВЗ;А1+А2;С1)
2 =CУMM(B3:D7)
3 =B2/D3*D7
4 =А1/(СУММ(С2:С4))
3)Вказати в яких комірках записані формули з функціями, аргументами яких є вкладені функції *
= ЕСЛИ(B1>B3;A1;C1)
=A1/СУММ( (C2:C4))
=МАКС(СУММ(H1:H4))
=МИН(ABS(K1:K6))
4)Вказати в яких комірках вміщено формули з використанням статистичних функцій: *
=срзнач (В1:D3)
=сумм (В3:D7)
=МАКС (А1:В5)
=sin (x)
5)Вказати в яких комірках вміщено формули з використанням логічних функцій:
=ЕСЛИ(В1>2;А2;А5)
=CУMM(B3:D7)
=B2/D3*D7
=ИЛИ(А2=2;С1<1)
6)Вказати в яких комірках вміщено формули з використанням математичних функцій: *
1 =сегодня ()
2 =сумм (В3:Е7)
3 =В2/D3*D7
4 =sin (x)
Нужна вібрать несколько с 1 до 4 с4 до 6
var
a: array[1..l] of integer;
d: array[1..l] of real;
i, otr, k, m: integer;
begin
otr:=0; k:=0; m:=0;
//считаем массив а
for i:=1 to l do
begin
readln(a[i]);
//если ввели положительное число,увеличим перем. otr на 1
if a[i] < 0 then
inc(otr);
//если ввели отрицательное число,увеличим перем. k на 1
//и к переменной m прибавим элемент
if a[i] > 0 then
begin
inc(k);
inc(m, a[i]);
end;
end;
//заполним массив d
for i:=1 to l do
//если индекс четный, присвоим элементу otr
//иначе присвоим среднее арифметическое
if i mod 2 = 0 then
d[i] := otr
else
d[i] := m/k;
end.