ДАЮ МНОГО БАЛЛОВ!!! написать программку которая обретает среднее арифметическое частей

ДАЮ МНОГО БАЛЛОВ!!! написать программку которая обретает среднее арифметическое частей массива, состоящая из 100 частей вещественного типа данных, вводимых вручную

Задать свой вопрос
Руслан Тетеря
Какой язык программирования?
Женя
Looks like pascal
1 ответ

Const N = 100;

var

mas : array [1..N] of real;

sum : real := 0;

counter : integer := 0;

begin

for var i := 1 to N do begin

readln(mas[i]);

sum += mas[i];

counter += 1;

end;

writeln(sum/counter);

end.

, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт