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

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

Question

Информатика

Мишата

15 июля, 20:49

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

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

+5

Ответы (2)

Знаете ответ?

Христюха · 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

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.