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

[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.

[Galka]

Всем спасибо большое
сделала вот так:

program mas;
type fabrica=record
kol1,kol2,kol3:integer;
cena1,cena2,cena3: integer;
end;
var a: array [1..1] of fabrica;
y: integer; i:integer;
begin
y:= 0;
for i:=1 to 1 do begin
writeln('vvedite kolichestvo zakazov na platie '); readln(a[i].kol1);
writeln('vvedite kolichestvo zakazov na bruki'); readln(a[i].kol2);
writeln('vvedite kolichestvo zakazov na ubki'); readln(a[i].kol3);
writeln('vvedite cenu na platie'); readln(a[i].cena1);
writeln('vvedite cenu na bruki'); readln(a[i].cena2);
writeln('vvedite cenu na ubku'); readln(a[i].cena3);

end;
for i:=1 to 1 do begin
with a[i] do
y:=(y + (cena1*kol1) + (cena2*kol2) + (cena3*kol3))/3;
end;
writeln('srednya stoimost ', y , ' rub.');
readln;
end.

вроде работает

Сообщение отредактировано: Galka - 19.05.2009 17:50