Выборка элементов массива по условию

@mu · Регистрация: 20.01.2012

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

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

@Igor · 23.01.2012, 08:14

Pascal

uses crt;
const n=20;
var b:array[1..99] of real;
    i,k,c:integer;
    sa:real;
begin
for i:=1 to n do
begin
write('Ââåäèòå ñòîèìîñòü ',i,' âèäà òîâàðà = ');
read(b[i]);
end;
writeln;
writeln;
sa:=0;
k:=0;
for i:=1 to n do
begin
sa:=sa+b[i];
k:=k+1;
end;
c:=0;
for i:=1 to n do
begin
if b[i]<sa/k then
c:=c+1;
end;
write('Êîë-âî âèäîâ òîâàðà èìåþùèõ öåíó ìåíüøå ñðåäíåé = ',c)
end.

@mu 0 / 0 / 0 Регистрация: 20.01.2012 Сообщений: 20
		1
	Выборка элементов массива по условию 22.01.2012, 17:59. Показов 2281. Ответов 1 Метки нет (Все метки) В массиве записана информация о стоимости 20 видов товара. Определить, сколько видов товара имеют стоимость меньшую, чем средняя стоимость всех видов товара 0

	23.01.2012, 08:14

Выборка элементов массива по условию

Решение