Символьные данные,описание и обработка

[Greschnik]

Дан массив в десять строк. В строке "название журнала_цена_количество подписчиков". Преобразовать массив так: в каждую строку через тире приписать стоимость журнала от всех подписчиков, распечатать.
Заранее спасибо.

[TaLadno]

А где же не получается, что пробовалось, на чем застопорилось?
Заранее пожалуйста.

[Greschnik]

FOR i:=1 TO 9 DO
BEGIN f:=<цена для i-го журнала>;
k:=<кол-во подписчиков на i-ом журнале>;
s[i]:=f div k;
st:=<преобразованное в строку значения s >;
p[i]:=p+st;

[TaLadno]

и?
попробуйте почитать про

pos
length
delete
copy
val
writeln

[Aleksandr H.]

Сообщение от Greschnik

Дан массив в десять строк.

FOR i:=1 TO 9 DO

стоимость журнала от всех подписчиков

s[i]:=f div k;

всех а не среднее.

Итог, как советует Stilet, - проставь преподу поляну и не заморачивай голову себе и преподу.

[Stilet]

В строке "название журнала_цена_количество подписчиков". Преобразовать массив так: в каждую строку через тире приписать стоимость журнала от всех подписчиков, распечатать.

var i,e,c,k:integer; q,n:string;
...
for i=1 to 5 do begin
 e:=pos('_',s[i]); n:=copy(s[i],1,e-1); delete(s[i],1,e);
 val(s[i],c,e); val(copy(s[i],1,e-1),c,e); delete(s[i],1,e);
 val(s[i],k,e); 
 str(k*c,q); s[i]:=n+'_'+q;
end;

Так примерно?

[Greschnik]

Вот моё неправильное решение вообще вроде(помогите разобраться) и решить

program z1;
var a:array[1..4] of integer;
i,d,min,l,j,buf,k,w,e:integer;
q:string;
begin
writeln('ўўҐ¤ЁвҐ rjk ;eh');
readln(d);
for K:=1 to d do
for i:=1 to d do
begin
writeln('ўўҐ¤ЁвҐ * §ў *ЁҐ ¦га* « ');
readln(q);
writeln('ўўҐ¤ЁвҐ жҐ*г');
readln(w);
writeln('ўўҐ¤ЁвҐ Є(r)«-ў(r) Ї(r)¤ЇЁйЁЄ(r)ў');
readln(e);
end;
begin
L:=w*e;
min:=l;
begin
if l<a[l] then min:=l;
buf:=a[i];
a[i]:=a[min];
a[min]:=buf;
end;
for k:=1 to d do
begin
write(l,'');
writeln
end;
writeln(' бЁў (r)вб авЁа(r)ў *');
end;
end.