(!!! СРОЧНО, МНОГО БАЛЛОВ !!!) Pascal ABC, написать программу: Дан целочисленный...

Question

(!!! СРОЧНО, МНОГО БАЛЛОВ !!!) Pascal ABC, написать программу: Дан целочисленный одномерный массив, состоящий из n элементов, и натуральные числа k, m (k МЕНЬШЕ m МЕНЬШЕ n). Вычислить среднее арифметическое элементов массива с номерами от k до m включительно.

Comments

Pascal ABC или PascalABC.NET ?

Answer 1

Const n=100;
var
a: array [1,n] of integer;
 sr:real; k, m, sum, i : integer;
begin
 for i:= 1 to n do a[i]:=ranfom(100);
readln (k);
readln (m);
sum = 0; 
for i:=k to m do
sum:=sum+a[i];
sr := sum/(m - k + 1);
 writeln (sr);
end.

Comments

Это не программа, это какой-то ошметок.

---

не в состоянии объявить переменные и написать writeln (sr)?

---

Правила при регистрации Вы читали и обязались их выполнять. Вот и выполняйте.

---

Параграф 3: "... Размещённый в Сервисе ответ должен содержать решение ВСЕХ проблем содержащихся в вопросе. "

---

const n=100; var a: array [1,n] of integer; sr:real; k, m, sum, i : integer; begin for i:= 1 to n do a[i]:=ranfom(100); readln (k);
readln (m);
sum = 0;
for i:=k to m do
sum:=sum+a[i];
sr := sum/(m - k + 1); writeln (sr); end.

---

Ответ дается в ответе, а не в комментарии. Комментарии при архировании заданий удаляются.