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.
Растр выглядит в виде точек - Пикселей.
<span>Векторное изображение задается формулами. </span>
Ответ находится во вложении
<em>// PascalABC.NET 3.3, сборка 1549 от 17.10.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var n:=ReadInteger; Writeln(n*' ',n)
end.
<u>Пример</u>
7
7