Определить, сколько видов товара имеют стоимость меньшую, чем средняя стоимость всех видов товара.

@Pavel22 · Регистрация: 18.01.2010

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

В массиве записана информация о стоимости 20 видов товара. Определить, сколько видов товара имеют стоимость меньшую, чем средняя стоимость всех видов товара.

@Jeni · 18.01.2010, 14:29

Pascal

program Massiv;
 
const n=20;
 
var
  a: array[1..n] of real;
  i, c: Integer;
  Sr: Real;
 
begin
  Randomize;
  for i := 1 to n do
  begin
    a[i] := Random(10000)/100;
    Write(a[i]:0:2, ' ');
  end;
  WriteLn;
  Sr := 0;
  for i := 1 to n do
    Sr := Sr + a[i];
  Sr := Sr/n;
  WriteLn('Srednyaya stoimost: ', Sr:0:2);
  c := 0;
  for i := 1 to n do
    if a[i] < Sr then Inc(c);
  WriteLn('Otvet: ', c);
  ReadLn;
end.

@Pavel22 0 / 0 / 0 Регистрация: 18.01.2010 Сообщений: 16
		1
	Определить, сколько видов товара имеют стоимость меньшую, чем средняя стоимость всех видов товара. 18.01.2010, 13:38. Показов 2209. Ответов 1 Метки нет (Все метки) В массиве записана информация о стоимости 20 видов товара. Определить, сколько видов товара имеют стоимость меньшую, чем средняя стоимость всех видов товара. 0

Опции темы

Определить, сколько видов товара имеют стоимость меньшую, чем средняя стоимость всех видов товара.

Решение