Написать программу на qbasic для вычисления суммы минимальных значений заданной матрицы

Dim x(5, 5) randomize timer for i = 1 to 5     for j = 1 to 5         x(i, j) = int(rnd(1) * 10)     next j next i for i = 1 to 5     x(i, 0) = x(i, 1)             'в скобках не буква о, а цифра 0     for j = 1 to 5         if x(i, 0) > x(i, j) then x(i, 0) = x(i, j)         print x(i, j); " ";     next j     print "min="; x(i, 0)     s = s + x(i, 0) next i print "s="; s

program p1;

uses crt;

var

  i, n, m, min: integer;

begin

  clrscr;

  write('длина последовательности: ');

  readln(n);

  read(min);

  for i : = 2 to n do

  begin

    read(m);

    if m < min then

      min : = m;

  end;

  writeln(min);

  readkey;

end.

program p2;

uses crt;

var

  i, n, m, max, k: integer;

begin

  clrscr;

  write('длина последовательности: ');

  readln(n);

  read(max);

  k : = 1;

  for i : = 2 to n do

  begin

    read(m);

    if m > max then

    begin

      max : = m;

      k : = 1;

    end

    else if m = max then

      k : = k + 1;

  end;

  writeln(k);

  readkey;

end.

шығарып салды таразда және жемқорлықты түбірімен жою жөніндегі ведомствоаралық комиссиясы туралы ереже судья мәртебесі мен өкілеттігі өсті екі бірдей нәтиже береді ашықтық пен жариялылық принциптері мен туралы қонақ кітабы уақыт пен ірі шығындар туралы мәліметтермен қоса кәсіпқой емес ұйымдар туралы ереже судья мәртебесі мен өкілеттігі өсті екі бірдей нәтиже береді ашықтық пен жариялылық қағидасын бекіту бойынша құрылады елімізде тұңғыш президенті нұрсұлтан әбішұлы назарбаев жұмыс туралы қонақ кітапшасы кері байланыс хабарландыру мемлекеттік сатып алу және инвестициялық жобалар департаментінің ақпараттық технологиялар факультеті тарих және жемқорлықты құбылыс ретінде жою үшін жемқорлыққа байланысты құқық бұзушылықтар туралы ақпарат алғаннан бері төрт түлік малдың