Дан двумерный массив. найти максимальный элемент и проверить, сколько раз он встречается в каждой строке.

var

  a: array[1..100, 1..100] of integer;

  n, m,   count, i, j, max: integer;

begin

  randomize;

  write('m = ');

  readln(m);

  write('n = ');

  readln(n);

  writeln('исходный массив : ');

  for i : = 1 to m do

  begin

    for j : = 1 to n do

    begin

      a[i, j] : = random(11);

      write(a[i, j], ' ');

    end;

    writeln;

  end;

 

  max : = a[1, 1];

  for i : = 1 to m do

    for j : = 1 to n do

      if a[i, j] > max then

        max : = a[i, j];

  writeln('max = ', max);

   

  for i : = 1 to m do

  begin

    count : = 0;

    for j : = 1 to n do

      if a[i, j] = max then

        inc(count);

    writeln('в строке', i ,' находится', count, ' максимальных элементов');

  end;

  readln;

end.

 

uses crt; var a: array[1..100,1..100]of integer;

i,j,m,n,max,kol: integer;

beginwriteln('введите размер массива'); readln(m,n);

for i: =1to m dobegin      

for j: =1to n do    

  begin          

writeln('введите элементы массива ',i,'x',j);          

readln(a[i,j]);      

end; end;

for i: =1to m dobegin      

for j: =1to n do      

begin        

  if a[i,j]> max then        

  max: =a[i,j];    

  end;

end; for i: =1to m dobegin    

  for j: =1to n do       begin          

if a[i,j]=max then        

  inc(kol);    

  end; end;

writeln('max=',max,', встречается ',kol,' raz.');

end.

Var s,s1: string; k,ks,p,l,n,i: integer; begin writeln('введите слова: '); readln(s); write('k = '); readln(k); s: =s+', '; ks: =0; p: =pos(', ',s); while p> 0 do   begin   s1: =copy(s,1,p-1);   l: =length(s1);   if l=k then     begin     n: =0;     for i: =1 to l do if s1[i]='ы' then n: =n+1;     if n> 1 then begin writeln(s1); ks: =ks+1; end;     end;   delete(s,1,l+2);   p: =pos(', ',s);   end; writeln('ks = ',ks); end. пример: введите слова: вымысел, вышка, барышня, бутылка, выигрыш, розыгрыш, верблюд, крылышко k = 7 вымысел выигрыш ks = 2

Есть типы лицензий для бесплатно распостранняемых програм: trial software - "тральные" на жаргоне, программы с бесплатным пользованием на протяжении какого-то срока, после чего он блокируется и появляется необходимость её купить. non-commercial use - бесплатное пользование, при условие не комерчиского использования, т.е. для часных нужд. (пример: программа для бухгалтерии можно распостранять платно для предприятия, но бесплатно для частного лица, желающего менеджить свои доходы/расходы) shareware - покупка не обязательна, покупка как благотворительный взнос, но зачастую такие программы часто "напоминают" о наличии функции их купить. open source - программы бесплатны для пользования по какой-либо лицензии от производителя, с открытым исходным кодом, открыты для модификации и не редко с возможностью принять участее в процессе разработки.