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

Question

Дюпон

Информатика

29 января, 17:15

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

+4

Ответы (1)

Знаешь ответ на этот вопрос?

Есения Короткова · Answer 1

Var

mas:array[1 ... 15] of integer;

a, c:integer;

begin

c:=0;

for a:=1 to 15 do

begin

writeln ('Введите число: 1');

readln (mas[a]);

c:=c+mas[a];

end;

writeln ('Среднее=', c/a);

end.