End.
3. решить одну из предложенного ниже перечня, протестировать,
исправить ошибки, сохранить конечную программу в личной папке под названием
massiv2_n, указав вместо n номер
в таблице а хранятся данные о количестве учеников в классах (a[1]- количество учеников
первом классе, а(2) - во втором и т.д.)
program n_3;
vark, integer;
а: array[1.1] of integer;
begin
al] = 20; a[2] : = 25; a[3] : = 19; a[4] : = 25; a[5] : = 26; a[6] = 22;
а(7)= 24; a(8) = 28; a[9] : = 26; а[10] : = 21; a ] : = 27;
напишите программу, вычислююшую
1) суоrу четных элементов массива, больших 25;
2) среднее арифметическое всех элементов массика;
3) количество нечетных элементов массива, меньших 26
4) количество элементов массива, больших 20 и меньших 28.
5) произведение элементов массива, больших 22 и меньших 25;
6) количество элементов массива, равных наибольшеrу элементу массива

1)var ar:array of integer;
max,min,s,i,n,maxi,mini:integer;
begin;
randomize;
max:=-1;
min:=101;
readln(n);
setlength(ar,n+1);
writeln('Array:');
for i:=1 to n do
 begin;
  ar[i]:=random(100);
  write(ar[i]:4);
  if max<ar[i] then
   begin;
    max:=ar[i];
    maxi:=i;
   end;
  if min>ar[i] then
   begin;
    min:=ar[i];
    mini:=i;
   end;
  s:=s+ar[i];
 end;
ar[maxi]:=s;
ar[mini]:=s;
writeln;
writeln('Final array:');
for i:=1 to n do
write(ar[i]:4);
end.
2)var ar:array of integer;
k,h,i,s:integer;
f:real;
begin;
randomize;
readln(h);
setlength(ar,h+1);
writeln('Array:');
for i:=1 to h do
 begin;
  ar[i]:=random(100)-50;
  write(ar[i]:4);
  if (ar[i]>0) and (ar[i] mod 2=0) then
   begin;
    inc(k);
    s:=s+ar[i];
   end;
 end;
f:=s/k;
writeln;
writeln('Result:',f);
end.

Деревья строятся просто: добавляем узел – операцию, которая выполняется последней, и к ней два потомка – аргументы этой операции. Например, для выражения a + b операцией будет "+", а аргументами – a и b. Затем в таком же виде представляем аргументы этой операции, пока все аргументы не будут содержать выражений. Построенные деревья во вложении.

Префиксная форма записи заключается в том, что сначала записывается операция, потом префиксная запись её первого аргумента, потом второго аргумента. Это соответствует обходу дерева сверху вниз и слева направо, записываем, что сверху, потом идем вниз. Вот что получится в итоге:
а) * + a b + c * 2 d
б) + * - * 2 a * 3 d c * 2 b
в) - * 3 a * + * 2 b c d

В постфиксной записи, наоборот, записываются сначала аргументы, потом операция. Это соответствует обходу дерева снизу-вверх.
а) a b + c 2 d * + *
б) 2 a * 3 d * - c * 2 b * +
в) 3 a * 2 b * c + d * -