Var
a:array [1..10000] of integer;
i,n,a_max,c;
begin
read(n);
a_max:=0;
c:=0;
for i:=1 to n do
begin
a[i] := random(100); // автозаполнение массива
print(a[i]);
if a[i]>a_max then a_max:=a[i]; // поиск максимального элемента
end;
writeln;
for i:=1 to n do
if a[i]=a_max then inc(c); // поиск повторяющихся элементов
if c>=2 then write(a_max)
else write(-1);
end.
<em>program qq;
</em>
<em>var x,a,y:real;
</em>
<em>Begin
</em>
<em> writeln('Vvedi a');
</em>
<em> readln(a);
</em>
<em> writeln('Vvedi x');
</em>
<em> readln(x);
</em>
<em> //a:=0.5;
</em>
<em> // x:=4;
</em>
<em> y:=sqr(cos(x+a))/abs(x+a)+sin(x+a)*(x+a);
</em>
<em> writeln(y);
</em>
<em>end.</em>
<em>И снова - приятно, когда кратко))
// PascalABC.NET 3.2, сборка 1483 от 14.06.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var w:=ReadAllText('in.txt'); w.Println;
var s:=w.MatchValues('\b[A-Za-z]+\b').JoinIntoString(' ');
s.Println; WriteAllText('Eng.txt',s);
s:=w.MatchValues('\b[А-Яа-яЁё]+\b').JoinIntoString(' ');
s.Println; WriteAllText('Rus.txt',s);
end.
<u>Пример (читаем in.txt, пишем в Eng.txt и Rus.txt)</u>
The Флегматичная ЭтА QuICk веРБлЮдица broWN ЖУЕТ fox JuMpS у подъезда over The ЗаСыХающИЙ LAZY ГорькиЙ dog шиПоВНиК
The QuICk broWN fox JuMpS over The LAZY dog
Флегматичная ЭтА веРБлЮдица ЖУЕТ у подъезда ЗаСыХающИЙ ГорькиЙ шиПоВНиК
k:=0;
for i:= 1 to 15 do
if (A[i]=10) then k:=k+1;