Дан массив размера N и целые числа K и L (1 меньше K · L · N). Найти среднее арифметическое всех элементов массива, кроме элементов с номерами от K до L включительно

code: #pascal
Program Array23;
var
  a: array of integer;
  i, k, l, n: integer;
  sr: real;
begin
  sr := 0.0;
  WriteLn('Длина массива:');
  ReadLn(n);
  SetLength(a, n);
  WriteLn('Введите K, L:');
  ReadLn(k, l);
  Writeln('Введите ', n, ' чисел:');
  for i := low(a) to high(a) do
  begin
    Read(a[i]);
    if not(i in [k-1..l-1]) then sr := sr + a[i];
  end;
  ReadLn;
  WriteLn ('Среднеарифметическое равно ', sr/(n-l+k-1):4:3);
  ReadLn;
end.

автор: Zaharov Nikolay a.k.a. hacker19_90

Поделиться:

Похожие статьи: