Фирма выпускает два типа румян перламутровые и матовые с использованием одинаковых смесеобразующих машин и видов работ. на производство 100 л перламутровых румян затрачивается 4 чел.-ч., а на производство 100 л матовых румян 2 чел.-ч. фонд рабочего времени ограничен 8000 чел.-ч. в неделю. в соответствии с контрактными соглашениями компания должна производить 25000 л матовых румян в неделю. максимальный спрос на перламутровые румяна равен 29000 л в неделю. цена на 100 л перламутровых румян составляет 120 у. е., а на 100 л матовых – 110 у. е. затраты на 100 л перламутровых румян составляют 96 у. е., а на 100 л матовых – 90 у. е. какое количество румян следует производить фирме, чтобы получить максимальную прибыль

vara: array[1..500] of integer; i,k,n: integer; begink: =0; write('n= '); readln(n); for i: =1 to n do readln(a[i]); for i: =1 to n do k: =k+a[i]*a[i+1]; writeln(k); end.

const m=10; n=12; var a: array [1..m,1..n] of integer; i,j: integer; sob: integer; sst: array[1..n]of integer; sstr: array[1..m]of integer; beginrandomize; for i: =1 to m do beginfor j: =1 to n do begina[i,j]: =random(10); write(a[i,j]: 3); end; writeln; end; sob: =0; for i: =1 to m do beginfor j: =1 to n do beginsob: =sob+a[i,j]; end; end; writeln('сумма всех элементов массива = ', sob); writeln; writeln; for i: =1 to m do beginsstr[i]: =0; for j: =1 to n do beginsstr[i]: =sstr[i]+a[i,j]; end; end; writeln('сумма элементов построчно'); for i: =1 to m do write(sstr[i]: 3); writeln; writeln; for j: =1 to n do beginsst[j]: =0; for i: =1 to m do beginsst[j]: =sst[j]+a[i,j]; end; end; writeln('сумма элементов по столбцам'); for j: =1 to n do write(sst[j]: 3); end.