Напишите программу на pascal(и желательно блок-схему)
дан массив целочисленных матриц. вывести матрицы, имею- щие наибольшее число нулевых строк.

print ('Добро в магазин "Магнит"')

# Форматированный вывод

print (''' Творог - номер 401, цена за пачку - 100 руб.

Молоко - номер 402

Йогурт - номер 403

Сметана - номер 404

Мороженое - номер 405

Колбаса - номер 501

Ветчина - номер 502

Паштет - номер 503

Стейк - номер 504

Пельмени - номер 505

Фасоль - номер 601

Тунец - номер 602

Маслины - номер 603

Ананасы - номер 604

Оливки - 605'''

)

n = 1

number_product = 0

price_product = 0

count_product = 0

total_sum = 0

check = ''

while n < 10:

print ( 'Введите через пробел номер, цену, количество купленного товара №{}'

. format(n))

number_product, price_product, count_product = map(float, input().split())

if number_product < 0 or price_product < 0 or count_product < 0:

break

else:

if 400 <= number_product <= 405:

temp_price = price_product * count_product - 0.5

elif 500 <= number_product <= 505:

temp_price = price_product * count_product * 0.7

elif 600 <= number_product <= 605:

temp_price = price_product * count_product * 0.85

total_sum += temp_price

total_sum_not_sale += price_product * count_product

check += f'''{number_product}, price - {price_product}, count - {count_product}

all_price - {temp_price} \n'''

n+=1

print(check)

print(f'Итог: {total_sum_not_sale}')

print(f'Скидка: {total_sum_not_sale - total_sum}')

print(f'К оплате : {total_sum}')

Объяснение:

Const
  n = 11;

var
  x: array[1..n] of integer;
  i, k, d, s: integer;

begin
  Randomize;
  Writeln('Элементы массива');
  k := 0; s := 0;
  for i := 1 to n do
  begin
    d := Random(11) - 5;
    Write(d:3);
    if (i mod 2) = 0 then begin { четное место }
      if d = 1 then Inc(k);
      x[i] := d
    end
    else begin
      if d < 0 then s := s + d;
      x[i] := sqr(d)
    end
  end;
  Writeln;
  Writeln('Результирующий массив');
  for i := 1 to n do Write(x[i]:3);
  Writeln;
  Writeln('Количество единиц на четных местах равно ', k);
  Writeln('Сумма отрицательных элементов на нечетных местах равна ', s)
end.

Тестовое решение:
Элементы массива
 -3  0 -5  1  5  1 -3 -4  5 -3 -2
Результирующий массив
  9  0 25  1 25  1  9 -4 25 -3  4
Количество единиц на четных местах равно 2
Сумма отрицательных элементов на нечетных местах равна -13