Question

Помогите пожалуйста!массив целых чисел из 10 элементов заполнить случайным образом. упорядочить массив по возрастанию. подсчитать количество и произведение элементов массива, больших 20 и меньших 50, вывести полученный результат

Answer 1

Const n = 10;

var
  a :array [1..n] of integer;
  i, j, k, kol, p :integer;

begin

  randomize;
  for i:= 1 to n do
    a[i]:= random(100);
   
  for i:= 1 to n-1 do
    for j:= 1 to n-i do
      if a[j] > a[j+1] then
      begin
        k:= a[j];
        a[j]:= a[j+1];
        a[j+1]:= k;
      end;
 
  kol:= 0; p:= 1;
  for i:= 1 to n do
    if (a[i] > 20) and (a[i] < 50) then
    begin
      inc(kol);
      p:= p * a[i];
    end;
   
  writeln(kol,'   ',p);

end.