1.
=СЧЁТЕСЛИ(D2:D30;">20")
2.
=СРЗНАЧЕСЛИ(C2:C30;"экономический";D2:D30)-СРЗНАЧ(D2:D30)
Диапазоны ячеек в формулах задайте в зависимости от числа строк с данными.
program jfe3;
const n=10; {Это будет кол-во элементов массива}
var a:array [1..n] of integer; i,s:integer;
begin
for i:=1 to n do begin
a[i]:=random(100); {элемент выбирается случайно от 0 до 100}
s:=s+a[i]; {Когда эл. присвоился, его значение плюсуется к общ сумме}
end;
for i:=1 to n do
writeln(a[i],' '); {показать сам массив}
writeln(s); {показать сумму}
readln; {чтобы окно сразу не закрывалось}
end.
Если есть вопросы по программе, пиши в личку. Если надо что-то еще - тоже =)
Удачи)
Uses crt;
var a,b,s:integer;
begin
readln(a);
readln(b);
s:=a*b;
writeln(s);
end.