Получить ответ

Валентина program pr; uses crt; const n=10; var a:array[1..n,1..n] of integer; i,j,k,max,nomk:integer; p:array[1..n] of integer; begin clrscr; writeln('vvedite massiv 10 na 10'); for i:=1 to n do for j:=1 to n do readln(a[i,j]); for k:=1 to n do p[k]:=0; for k:=1 to n do for i:=1 to n do for j:=1 to n do if a[i,j]=k then p[k]:=p[k]+1; max:=-1; for k:=1 to n do if p[k]>=max then begin max:=p[k]; nomk:=k; end; writeln('chislo=',nomk); writeln('kol-vo=',max); end. Буду благодарна, если отметите  06.12.12 Ответ понравился автору вопроса

Еva от 100 p. 4.9 399 отзывов Рейтинг: 121 998 6-й в Учебе и науке Общаться в чате Читать ответы

Похожие вопросы