Дан массив в десять строк. В строке "название журнала_цена_количество подписчиков". Преобразовать массив так: в каждую строку через тире приписать стоимость журнала от всех подписчиков, распечатать. Заранее спасибо.
Алгоритм такой: 1) в цикле считываем элемент массива (строку); 2) находим в строке два числа; 3) преобразуем числа из строкового типа в числовой; 3) перемножаем их, получаем нужную сумму; 4) преобразуем назад число в строковое значение; 5) дописываем в конец строки; 6) распечатываем строку; 7) переходим на начало цикла до тех пор пока не закончатся все элементы массива.
FOR i:=1 TO 9 DO BEGIN f:=<цена для i-го журнала>; k:=<кол-во подписчиков на i-ом журнале>; s:=f div k; st:=<преобразованное в строкузначения s >; p:=p+st;
var i,e,c,k:integer; q,n:string;... for i=1 to 5 do begin e:=pos('_',s); n:=copy(s,1,e-1); delete(s,1,e); val(s,c,e); val(copy(s,1,e-1),c,e); delete(s,1,e); val(s,k,e); str(k*c,q); s:=n+'_'+q; end;
