1. дан двумерный массив размером 4*6 и заполненный целыми числами с клавиатуры. сформировать одномерный массив каждый элемент которого равен количеству элементов соответствующей строки, больше данного числа. 2. дан двумерный массив размером n*m, заполненный случайными числами. определить, есть ли в данном массиве столбец, в котором имеются одинаковые элементы. 3. заполнить массив размером 7*7 по правилу: 1 1 1 1 1 1 1 0 1 1 1 1 1 0 0 0 1 1 1 0 0 0 0 0 1 0 0 0 0 0 1 1 1 0 0 0 1 1 1 1 1 0 1 1 1 1 1 1 1 в паскале, )

//PascalABC.NET версия 3.2, сборка 1417
//Если программа не запускается, то обновите версию
begin
    var m := MatrRandom(ReadInteger('n ='), ReadInteger('m ='), 0, 9);
    m.Println();
    
    {1}
    Writeln('количество элементов соответствующей строки');
    var number := ReadInteger('Введите число, для проверки =');
    var a := m.Rows.Select(r -> r.Count(x -> x > number));
    a.Println;
    
    {2}
    Writeln('Определить,есть ли в данном массиве столбец, в котором имеются одинаковые элементы.');
    var b := m.Cols.Select(r -> r.GroupBy(v -> v).Count(g -> g.Count() > 1));
    b.Println;
    Writeln(b.Any(x -> x > 0));
    
    {3}
    Writeln('Заполнить массив');
    var n := 2 * Max(m.RowCount, m.ColCount) div 2 + 1;
    m := MatrGen(n, n, (i, j)-> ((n - 1 - i - j) * (i - j) > 0) ? 0 : 1);
    m.Println();
end.

sugarMass=50 #масса сахара

sugarCost=15 #стоимость сахара

flourMass=100 #масса  муки

flourCost=8 #стоимость муки

meatMass=12 #масса мяса

meatCost=95 #стоимость мяса

fishMass=20 #масса рыбы

fishCost=70 #стоимость рыбы

totalCost=sugarMass*sugarCost+flourMass*flourCost+meatMass*meatCost+fishMass*fishCost #общая стоимость  

totalMass=sugarMass+flourMass+meatMass+fishMass #общая масса  

print('Общая стоимость товара - ' + str(totalCost) + 'грн')

print('Общая масса товара - ' + str(totalMass) + 'кг')

print('Стоимость сахара - '+str(sugarMass*sugarCost)+'грн')

print('Стоимость муки - '+str(flourMass*flourCost)+'грн')

print('Стоимость мяса - '+str(meatMass*meatCost)+'грн')

print('Стоимость рыбы - '+str(fishMass*fishCost)+'грн')

pascal

Объяснение:

procedure sortmas(a: array of integer);

var i, j, min, ind: integer;

begin

 for i := 0 to Length(a) - 2 do

 begin

   min := a[i]; ind := i;

   for j := i + 1 to Length(a) - 1 do

     if a[j] < min then

     begin

       min := a[j]; ind := j;

     end;

   a[ind] := a[i]; a[i] := min;

 end;

end;

var a: array of integer;

   n , i: integer;

begin

 WriteLn('Введите размер массива: '); Read(n);

 SetLength(a, n);

 Randomize;

 WriteLn('Содержимое массива:');

 for i := 0 to Length(a) - 1 do

 begin

   a[i] := random(100);

   Write(a[i], ', ');

 end;

 WriteLn;

 sortmas(a);

 WriteLn('Три минимальных элемента: ', a[0], ', ', a[1], ', ', a[2], ', ');

end.