Question

Найти среднее арифметическое только тех элементов, значения которые расположены в интервале от -15 до 20.
Алгоритм: - заполнить массив элементами;- организовать цикл по суммированию элементов массива;
- условие в цикле: if (a[i]>-15) and (a[i]<20) then .

Answer 1

Ответ:

Код ниже

Объяснение:

program calcAverage;

const n = 100;

var S, counter, i: integer;

   a: array [1..n] of integer;

begin

   randomize;

   S := 0;

   counter := 0;

   for i := 1 to n do begin

       a[i] := Random(100) - 50;

       if (a[i] > -15) and (a[i] < 20) then begin  

          counter := counter + 1;

          S := S + a[i];

       end;

   end;

   writeln('Среднее арифметическое: ', S/counter);

end.