var a, b, c, i, n, m, j :integer; s, p, q: string; begin read (s); a:=1;for i:=1 to length (s) do begin if s[i]=' ' then begin b:=i-a; c:=0; p:=copy(s,a,b); a:=i+1; for j:=1 to length (p) do if (p[j]<>'у') and (p[j]<>'У') and (p[j]<>'е') and (p[j]<>'Е') and (p[j]<>'ы') and (p[j]<>'Ы') and (p[j]<>'а') and (p[j]<>'А') and (p[j]<>'о') and (p[j]<>'О') and (p[j]<>'э') and (p[j]<>'Э') and (p[j]<>'я') and (p[j]<>'Я') and (p[j]<>'и') and (p[j]<>'И') and (p[j]<>'') and (p[j]<>'Ю') then inc(c); if c>=m then begin m:=c; q:=p; end; end; end; a:=length (s); while s[a]<>' ' do begin delete (s,a,1); a:=a-1; end; write (s, q); end.
uses crt; var a, b, c, i, n, j :integer; s :array[1..10000] of integer; begin clrscr; writeln('Введите размер массива'); read(n); for i:=1 to n do begin s[i]:=random(46)-15; writeln ('s[', i,']=', s[i]); end; a:=s[1];for i:=1 to n do if s[i]>a then begin a:=s[i]; b:=i; end; writeln ('Наибольший элемент s[', b, ']=',a); end.
а)
Объяснение:
данные это цифры 0 и 1 расставленные в определенном порядке