задача на массив записей Опции

[Galka]

Помогите не могу решить задачу. Вот условие:
Дан массив звписей, содержащих сведения о заказах в ателье пошива одежды. Разработать структуру записи и посчитать среднюю стоимость заказа.
Я тут чего зря понаписала:

Код

program mas;
type
  fabrica = record
  par1,par2,par3: 1..3;
  value,sebest,price:integer;
  sst:real;
  end;
var a:array[1..3] of fabrica;
i:integer;
begin
for i:=1 to 3 do
with a[i] do
begin
writeln ('vvedite dannye');
readln(par1,par2,par3);
sst:=(par1+par2+par3)/3;
writeln(sst);
end;
end.

[Krjuger]

Да и почему sst выводится на экран в цикле??И вообще напиши что в твоем понимании означает каждая переменная,так легче понять будет.Тебе тогда дельный совет дадут вместо кучи вопросов.

Так давай рассуждать...У тебя есть список заказов,чем у тебя обзадает каждый заказ??У заказа, как я понимаю, есть номер(сведения) и его цена.Или у тебя есть заказ,состоящий из каких либо вещей и их цена.если второй вариант,то ты создаеш какую нибудь переменную в которую записываеш всю стоимость заказа и какой нибудь счетчик,и в итоге средней стоимостью будет сумма стоимосттец вещей, деленная на счетчик.

Более того,ты говориш что у тебя данн массив,а ты вводиш его с клавиатуры.Если массив дан, то чаще всего его надо считывать из файла,так что тоже уточни.

Сообщение отредактировано: Krjuger - 19.05.2009 20:09