Программа выдающая проценты от среднего

@Утконос · Регистрация: 22.11.2015

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

Тут понадобилось написать такую интересную программу:
прога должна искать среднее арифметическое введенных чисел а далее выдавать сколько каждое из чисел составляет процентов от их среднего. Ну, к примеру, 1 число 50 второе 100. Их среднее 75. 50 составляет 66% от 75, а 100 133%. Но вот еще одна сложность- прога должна работать не с двумя числами, а с количеством n, где меняется каждый раз в зависимости от необходимости(количества чисел). Можно такую программу написать?

@Hitoku · 04.03.2017, 20:40

Сообщение от Утконос

Можно такую программу написать?

Можно

Pascal

var
a:array[1..100] of integer;
begin
  randomize;
  write('Количество элементов: '); var n:=ReadInteger;
  var sr:=0.0;
  write('Массив: ');
  for var i:=1 to n do begin
    a[i]:=random(101); sr+=a[i];
    write(a[i],' ');
  end;
  sr:=sr/n;
  writeln; writeln('Среднее арифметическое = ',sr:0:2);
  for var i:=1 to n do begin
    writeln(a[i],' - ',(a[i]/sr)*100:0:0,'%');
  end;
end.

Если надо вводить числа вручную, то:

Pascal

8
9
10

for var i:=1 to n do begin
    a[i]:=ReadInteger; sr+=a[i];
  end;

И удалить

Pascal

7	write('Массив: ');

@volvo · 05.03.2017, 11:50

Pascal

begin
  var a := ReadArrInteger(ReadInteger('Количество элементов:'));
  writeln('Среднее арифметическое:', a.Average, NewLine,
    a.Select(v -> Format('{0} -> {1,4:N0}%', v, v / a.Average * 100)).JoinIntoString(NewLine));
end.

@Утконос 4 / 5 / 0 Регистрация: 22.11.2015 Сообщений: 143
		1
	Программа выдающая проценты от среднего 04.03.2017, 19:17. Показов 1160. Ответов 2 Метки нет (Все метки) Тут понадобилось написать такую интересную программу: прога должна искать среднее арифметическое введенных чисел а далее выдавать сколько каждое из чисел составляет процентов от их среднего. Ну, к примеру, 1 число 50 второе 100. Их среднее 75. 50 составляет 66% от 75, а 100 133%. Но вот еще одна сложность- прога должна работать не с двумя числами, а с количеством n, где меняется каждый раз в зависимости от необходимости(количества чисел). Можно такую программу написать? 0

	05.03.2017, 11:50

Программа выдающая проценты от среднего

Решение