Вычислить среднее арифметическое чисел

@Retrospectare · Регистрация: 16.10.2014

Студворк — интернет-сервис помощи студентам

Задача - Написать программу, которая генерирует 10 случайных чисел в диапазоне от 1 до 10, выводит эти числа на экран и вычисляет их среднее арифметическое
Как составить схему. Не знаю как оформить цикл. Подскажите пожалуйста

@Cyborg Drone · 17.04.2015, 22:54

Pascal

var s: real;
    k, i: integer;
begin
  randomize;
  s := 0;
  for i := 1 to 10 do
    begin
      k := random(10) + 1;
      s := s + k;
      writeln('  k[', i:2, '] = ', k)
    end;
  writeln('Average = ', s / 10:0:1);
  readln
end.

Не по теме:

Да... Молодёжь бедна умом становится...

@Retrospectare 5 / 5 / 0 Регистрация: 16.10.2014 Сообщений: 99
		1
	Вычислить среднее арифметическое чисел 17.04.2015, 20:25. Показов 1658. Ответов 1 Метки нет (Все метки) Задача - Написать программу, которая генерирует 10 случайных чисел в диапазоне от 1 до 10, выводит эти числа на экран и вычисляет их среднее арифметическое Как составить схему. Не знаю как оформить цикл. Подскажите пожалуйста 0

Опции темы

Вычислить среднее арифметическое чисел

Решение