помогите с записью!

[student2009]

Имеются данные о ценах на муку и стоимость доставки 1 тонны муки каждой из 15 стран, торгующих мукой. Определить среднюю стоимость муки на рынке и вывести список стран, продающих муку ниже средней стоимости. Вывести первые 5 стран, в которых выгоднее закупать муку (с учетом и без учета доставки).

[fbus]

это математика?

чувак, язык программирования в студию, ясновидящий в отпуске.

[student2009]

нет, это программирование

[student2009]

Помогите доделать до конца пожалуйста!

Program dfg;
uses crt;
Type
 muka=record
Strana:string;
Stoim_dost:integer;
Cena:byte;
end;
var
massiv:array[1..15] of muka;
sum:real;
i,n:integer;
begin randomize;
for i:=1 to 15 do begin
massiv[i].cena:=random(15);
end;
writeln;
write('Введите количество записей->');
readln(n);
for i:=1 to n do
begin
write('Введите страну->');
readln(massiv[i].strana);
write('Введите стоимость доставки->');
readln(massiv[i].stoim_dost);
write('Введите цену->');
readln(massiv[i].cena);
end;
sum:=0;
for i:=1 to n do
sum:=sum+massiv[i].cena;
sum:=sum/n;
for i:=1 to n do
if massiv[i].cena<sum then writeln(massiv[i].strana);
end.

[student2009]

кто может помочь??

[DM_bite]

кто может помочь??

В чем помочь конкретно?

[student2009]

нужно задачу до конца доделать

[DM_bite]

Ну далее наверное нужно сделать это:

if massiv[i].cena+massiv[i].stoim_dost<sum then writeln(massiv[i].strana);

То есть найти те страны, в которых цена + стоимость доставки меньше средней цены.

[student2009]

помогите до делать вывод в виде таблице. Заранее большое СПАСИБО!

Program dfg;
uses crt;
Type
muka=record
Strana:string;
Stoim_dost:integer;
Cena:integer;
end;
var
massiv:array[1..15] of muka;
sum:real;
m:muka;
i,n,l:integer;
begin randomize;
for i:=1 to 15 do begin
massiv[i].cena:=random(15);
end;
writeln;
write('Введите количество записей->');
readln(n);
for i:=1 to n do
begin
write('Введите страну->');
readln(massiv[i].strana);
write('Введите стоимость доставки->');
readln(massiv[i].stoim_dost);
write('Введите цену->');
readln(massiv[i].cena);
end;
writeln('+------------------+----------------------+------------+');
writeln('+        страна        +  стоимость доставки +     цена     +');
writeln('+------------------+----------------------+------------+');
for i:=1 to n do begin
writeln('|',massiv[i].strana:18,'|',massiv[i].stoim_dost:22,'|',massiv[i].cena:12,'|');
end;
writeln('+------------------+----------------------+------------+');
sum:=0;
for i:=1 to n do
sum:=sum+massiv[i].cena;
sum:=sum/n;
for i:=1 to n do begin
if massiv[i].cena<sum then writeln(massiv[i].strana);
end;
if massiv[i].cena+massiv[i].stoim_dost<sum then writeln(massiv[i].strana);
for i:=i downto 1 do
for l:=1 to n do
if massiv[i].cena>massiv[i+1].cena then  begin
m:= massiv[i];
massiv[i]:= massiv[i+1];
massiv[i+1]:= m;
end;
end.