Решить средствами ms excel, ! ткацкий цех выпускает два вида тканей t1 и t2 на двух видах станков c1 и c2. количество станков первого типа – 103, второго – 210.станок c1 выпускает 54 м ткани t1 или 72 м ткани t2, а станок c2 – 34 м ткани t1 или 65 м ткани t2 за смену. производство тканей ограничено ресурсами и складскими помещениями. за смену можно выпустить не более 6000 м ткани t1 и не более 11000 м ткани t2. доход от продажи ткани t1 – 7, 3 у.е. за 1 м, продажи ткани t2, - 4, 2 у.е. за 1 м. как распределить производство тканей t1 и t2 между станками c1 и c2, чтобы максимизировать прибыль?

Ничего интересного, полный примитив. Ткань Т1 должны выпускать 43 станка С1 и 108 станков С2. Остальные станки выпускают ткань Т2. На складе при этом будет 5994 м Т1 и 10950 м Т2. Прибыль составит 89746,2 рубля.

Const n=10; m=3;
var 
a:array[1..n,1..m] of integer;
i,j,s,k:integer; p:real;
begin
Randomize;
writeln('Исходный массив:');
for i:=1 to n do
 begin
 for j:=1 to m do
  begin
   a[i,j]:=random(81)+20;
   write(a[i,j]:4);
  end;
  writeln;
 end;
s:=0;
for i:=1 to n do
 for j:=1 to m do s:=s+a[i,j];
p:=s/n*0.8;
writeln('p = ',p:5:2);
writeln('Зачислены:');
k:=0;
for i:=1 to n do
 begin
 s:=0;
 for j:=1 to m do s:=s+a[i,j];
 if s>=p then begin write(i,' '); k:=k+1; end;
 end;
writeln;
writeln('k = ',k);
end.

Пример:
76 62 50
37 73 22
61 99 36
22 69 38
27 82 22
93 56 37
79 84 51
83 31 60
61 39 95
70 70 100
p = 142.80
Зачислены: 1 3 6 7 8 9 10
 k = 7

1) Не понятно задание, в комментах допишу, как только пойму.
2)var t,c:array [1..10] of integer;
    i,sum:integer;
begin
for i:=1 to 10 do begin
   t[i]:=random(20+i);
   c[i]:=random(20000+i);
end;
for i:=1 to 10 do begin
   sum:=sum+t[i]*c[i];
end;
for i:=1 to 10 do begin
   writeln('Количество товара ',i,' вида ',t[i],'  Стоимость товара ',i,' вида ', c[i]);
end;
writeln('Общая сумма ',sum);
end.
3) Мы опишем его так
    ves: array [1..31] of real;
4)
var sum,x:real;
    n,i:integer;
begin
read(n);
for i:=1 to n do begin
   read(x);
   sum:=sum+x;
   end;
writeln(sum/n);
end.