массивы

[Пе4енька]

дан одномерный массив, найти кол-во и сумму элементов, индексы которых лежат в интервале [a;b] или выдать сообщение "таких элементов нет".

[Asker13]

const
  N = 10;
var
  a,b,sum,i: integer;
  m: array [1..N] of integer;
begin
  // Чтение массива
  ReadLn(a,b);
  sum := 0;
  for i := a to b do Inc(sum, m[i]);
  WriteLn('Количество: ', a-b, '. Сумма: ', sum);
  ReadLn;
end.