Паскаль авс.net маленький внучек решил бабушке пидстригты цветы на ее драгоценному цветнике, срезав только бутоны и цветы на них. к счастью, сообразительный мальчик срезал только те цветы, которые были высотой от h1 до h2 см от земли. скольким цветочкам повезло быть подстриженными, если высота их в сс составляет a1, an.

Const
K = 7;
Var
A:array[1..K] of integer;
h1,h2:real;
n:integer:=0;
Begin
Write('h1 = ');ReadLn(h1);
Write('h2 = ');ReadLn(h2);
WriteLn('Введите высоты цветов(',K,' шт.):');
For var i:= 1 to K do
    Read(A[i]);

For var i:= 1 to K do
    if (A[i]>=h1)and(A[i]<=h2) then n+=1;
WriteLn;
WriteLn('Кол-во "везучих" цветов: ',n);

End.

//PascalABC.NET 3.2

begin
  var h1 := ReadInteger('h1 =');
  var h2 := ReadInteger('h2 =');
  var a := ReadArrInteger('Введите элементы массива a:', ReadInteger('n ='));
  write('Цветов подстрижено: ', a.Where(x -> (h1 <= x) and (x <= h2)).Count)
end.

1)  (Если была высшая математика, то должно быть понятно.) 
Ну допустим надо посчитать сред. ариф. всех элементов массива.
Пусть будет массив размерностью (Типа таблица) 3х3, запишем его так (он двухмерный)
 A[n,m]; -  основное положение массива, где n строка, где m столбец.
Давать ему наименование равно такому же смыслу как и Program N; никаких цифр впереди например 1A, правильно записывать массив - A1, XD1D4, _s4; _1; _1d1 и т.д.
Массив должен иметь такой же тип переменных какой задан в условии, т.е. непосредственно real = real. Элементы массива записываются через запятую. И снова же, если массив имеет тип данных целых чисел, то элементы его тоже должны соответствовать им A[i,j] = integer; i,j - type integer;
Сейчас допишу остальные

         Если ошибся,поправьте.

                                                  Начало

                                

                                                 Вывод(указываем переменные,A,B.ну и т.д.)

 

               Да                               Условие(к примеру:A>=B)          Нет                                                                            

 

         Если х=A+B                                                                                Иначе х=A/B

 

                                               Ну и дальше вывод,и конец.

                                       Вывод

                                       

                                       Конец.