Городской молочный завод производит молоко, кефир и сметану, расфасованные в бутылки. На производство 1 т молока, кефира и сметаны требуется соответственно 1010, 1010 и 9450 кг молока. При этом затраты рабочего времени при разливе 1 т молока и кефира составляют 0,18 и 0,19 машино-часов. На расфасовке 1 т сметаны заняты специальные автоматы в течение 3,25 ч. Всего для производства молочных изделий завод может использовать 136000 кг молока. Основное оборудование может быть занято в течение 21,4 машино-часов, а автоматы по расфасовке сметаны - в течение 16,25 ч. Прибыль от реализации 1 т молока, кефира и сметаны соответственно составляет 30, 22 и 136 грн. Завод должен ежедневно производить не менее 100 т молока, расфасованного в бутылки. На производство другой продукции нет никаких ограничений. Нужно определить, какую продукцию и в каком количестве нужно ежедневно производить завода, чтобы прибыль от ее реализации был максимален. (Excel)​

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

{ 1. Borland (Turbo) Pascal 7.0, 1994г., статический массив }

uses Crt;
const
  nn=1000;
var
  i,n,mn:integer;
  a:array[1..nn] of integer;
begin
  Randomize;
  ClrScr;
  Write('n='); Read(n);
  mn:=1000;
  for i:=1 to n do begin
    a[i]:=Random(199)-99;
    Write(a[i],' ');
    if a[i]<mn then mn:=a[i]
    end;
  Writeln;
  Writeln('Наим. элемент ',mn);
  ReadKey
end.

Выполнение приведено во вложении 1.

// 2. Free Pascal 3.0.0, 2015г., динамический массив

uses Crt;
var
  i,n,mn:integer;
  a:array of integer;
begin
  Randomize;
  ClrScr;
  Write('n='); Read(n);
  SetLength(a,n);
  mn:=1000;
  for i:=0 to n-1 do begin
    a[i]:=Random(199)-99;
    Write(a[i],' ');
    if a[i]<mn then mn:=a[i]
    end;
  Writeln;
  Writeln('Наим. элемент ',mn);
  ReadKey
end.

Выполнение приведено во вложении 2

// 3. PascalABC.NET 3.2, 2016г., современное решение

begin
  var a:=ArrRandom(ReadInteger('n='),-99,99);
  a.Println;
  Writeln('Наим. элемент ',a.Min)
end.

Выполнение приведено во вложении 3.

Сделать выводы каждый может сам...

Примечание: все решения сделаны в среде PascalABC.NET 3.2, который для уровня школьных задач можно считать совместимым на уровне исходного текста с вышеприведенными версиями паскалей.

Program n1;
var x,y,n,z,h,C:real;
function arccos(x : real) : real;
begin
arccos := 2 * arctan(sqrt((1 - x) / (1 + x)));
end;
procedure ygls( a,b,c,t: real);
var al,be,ga: real;
begin
al := arccos((sqr(b) + sqr(c) - sqr(a))/(2 * b * c)) * 180 / pi;
writeln('угол A= ',trunc(al));
writeln('угол B= ',trunc(180-al-t));
end;
begin
write('введите сторону а: ');
readln(x);
write('введите сторону b: ');
readln(y);
write('введите угол С: ');
readln(C);
n:=C;
C:=cos(C*180/pi);
z:=sqrt(x*x+y*y-2*x*y*C);
h:=0.5*sqrt(2*(x*x+y*y)-c*c);
ygls(x,y,z,n);
writeln('сторона c: ',trunc(z));
writeln('высота h: ',trunc(h));
writeln('периметр P: ',trunc(x+y+z));
writeln('площадь S: ',trunc(z*h));
end.