Какие типы програм обычно распространяются

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

freeware  – это те программные продукты и утилиты, которые в основном распространяются и используются без всяких ограничений

shareware-программы – это те программы, которые возможно попробовать в использовании, но ограниченное время, по истечении которого пользователь должен приобрести полноценную коммерческую версию программы у автора.

Uses crt; const     n = 15;     m = 10; var     a: array[1..n,1..m] of real;     i,j: integer;     s3,s7: real; begin randomize; clrscr; writeln('исходный массив: '); for i: = 1 to n do       begin       for j: = 1 to m do               begin               a[i,j]: =random*13;               write(a[i,j]: 6: 3,'  ')               end;       writeln       end; s3: =0; s7: =0; for j: = 1 to m do       begin       s3: =s3+a[3,j];       s7: =s7+a[7,j];       end; writeln('s3 = ',s3: 0: 3); writeln('s7 = ',s7: 0: 3); if s3 > s7 then writeln('s3 > s7') else if s3 < s7 then writeln('s3 < s7')         else writeln('s3 = s7'); readln end.

N- количество чисел в последовательности, i - для организации цикла for, x - очередное число из последовательности в начале задаем значение max = 0, потому что рассматриваем последовательность натуральных чисел ( 1 и больше), то есть первое же натуральное четное будет записано в max в конце выводим ьфч только если он не равен нулю, тоесть в последовательности было натуральное четное число! program z1; var n, i, x, max: integer; beginmax : = 0; readln(n); for i : = 1 to n dobegin    read(x);     if (x mod 2 = 0) and (x > max) then max : = x; end; if max > 0 then writeln(max) else writeln ('не таких чисел'); end.