Помогите, пожалуйста, решить задачу на строки. Среди слов заданного предложения найти такое, которое имеет наибольшее количество вхождений в предложение.
Попытка решения задачи: pascal code program pr1; var s:string; a:array[1..100] of string; c:array [1..100] of integer; k,i,j,max:integer; begin writeln('Enter'); readln(s); k:=1; for i:=1 to length(s) do begin if s[i]<>'' then a[k]:=a[k]+s[i] else begin k:=k+1; end; end;
for i:=1 to k do begin for j:=i+1 to k do begin if a[i]=a[j] then begin inc(c[i]); a[j]:=''; end; end; end;
max:=0; for k:=1 to i do begin if c[k]>max then max:=c[k]; end; writeln('Max vhozhd-',a[k],'-', max); readln; end.
Вы не можете начинать темы Вы не можете отвечать на сообщения Вы не можете редактировать свои сообщения Вы не можете удалять свои сообщения Вы не можете добавлять вложения