Question

Напишите программу, которая находит сумму элементов массива (25 целых чисел, которые вводятся с клавиатуры), и выводит на экран среднее значение его элементов.

программа: Pascal ABC.

Answer 1

var A:array[1..25] of Integer;
i:integer;
S:real;
begin
Readln(N);
For i:=1 to 25 do
Readln(A[i]);
For i:=1 to 25 do
S:=S+A[i];
S:=S/25;
Writeln(S);
end.

Answer 2

Очень мило, жаль только массив не описан.

Answer 3

забыл, спасибо)

Answer 4

А еще вопрос: зачем Вы N вводите, если у Вас циклы до 25?

Answer 5

const
  n = 25;
var
  a: array[1..n] of integer;
  i, s: integer;
begin
  Writeln('Введите элементы массива');
  s := 0;
  for i := 1 to n do
  begin Read(a[i]); s := s + a[i] end;
  Writeln('Среднее значение элементов массива равно ', s/n)
end.

Answer 6

У Вас в самом начале написано: "const
n = 25;", на уроках мы обычно не пишем такое, это обязательно писать здесь?

Answer 7

Это как Вам угодно. Можете вычеркнуть вообще и заменить по тексту n на 25. Можете перенести в var и потом после begin присвоить значение. Но с const - это правильный вариант, потому что если вдруг не 25 элементов, достаточно поменять только там.

Answer 8

Спасибо огромное.

Answer 9

Пожалуйста.