Вводятся положительные числа прекратить ввод когда сумма введенных чисел превысит 100 сделать блок схему

for (ip = mas; ip < mas+len; ip ++) if (*ip < *min)   min = ip

после  завершения поиска - перестановка  : *ip = *min;   *min =*mas; *mas = *ip

\\  main вроде как объявит матрицу, и выполнит управление вызовами функций- void и main(void)

{  n, m;  matr [N][M]; i;input_matr (matr, n, m)

int

int  \\ Матрица будет объявлена размером 5 на 5   int

\\потом она передастся в функцию ввода.

\\ Для преобразования матрицы ее строки передаются в функцию по очереди как  одномерные массивы. Цикл управления находится в основной программе.

\\и он управляет передачей строк в функцию.

for (i = 0;i < n;i ++)

Change (matr[i], m); \\ matr[i], это i – тая строка матрицы.

\\Функция вывода матрицы вызывается после завершения обработки.

print_matr (matr, n, m); }

\\ End of main

program test1;

var r, minim, i: integer;

a: array[1..12] of integer;

begin

 for i:=1 to 12 do

 begin

   a[i]:= random(100);

 end;

 minim := a[1];

 for i:=1 to 12 do

 begin

   if minim > a[i] then

     minim:= a[i];

 end;

 writeln('минимальное значение=', minim);

end.

program test2;

var i: integer;

var poisk: string;

a: array[1..20] of integer;

begin

 for i:=1 to 20 do

 begin

   a[i]:= random(100);

 end;

 for i:=1 to 20 do

 begin

   if a[i] = 65 then

     poisk:=poisk + i;

 end;

 if poisk = '' then

   writeln('нет элементов массива со значением 65')

 else writeln('элемент(ы) массива со значением 65 ',poisk)

end.