Напишите программу, которая находит сумму элементов массива (25 целых чисел, которые вводятся с клавиатуры), и выводит на экран среднее значение его элементов. программа: Pascal ABC.
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.
У Вас в самом начале написано: "const n = 25;", на уроках мы обычно не пишем такое, это обязательно писать здесь?
Это как Вам угодно. Можете вычеркнуть вообще и заменить по тексту n на 25. Можете перенести в var и потом после begin присвоить значение. Но с const - это правильный вариант, потому что если вдруг не 25 элементов, достаточно поменять только там.
Спасибо огромное.
Пожалуйста.
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.
Очень мило, жаль только массив не описан.
забыл, спасибо)
А еще вопрос: зачем Вы N вводите, если у Вас циклы до 25?