Напишите программу, которая находит сумму элементов массива (25 целых чисел, которые вводятся с клавиатуры), и выводит на экран среднее значение его элементов. программа: Pascal ABC.
Напишите программу, которая находит сумму элементов массива (25 целых чисел, которые вводятся с клавиатуры), и выводит на экран среднее значение его элементов.
программа: Pascal ABC.
Гость
Ответ(ы) на вопрос:
Гость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.
Гость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.
Не нашли ответ?
Похожие вопросы