<em>// PascalABC.NET 3.3, сборка 1625 от 17.01.2018</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
function amax(a:array of integer):integer;
begin
Result:=a.Max
end;
begin
var x:=ArrRandom(ReadInteger('n='),-50,50); x.Println;
Writeln('Максимальный элемент равен ',amax(x))
end.
<u>Пример</u>
n= 15
-21 9 27 -46 -17 -21 22 50 -50 -47 -20 43 -23 43 -46
Максимальный элемент равен 50
A) 100010
б) 352
в) 4F4
а) 2653
б) 22651
в) 22D3
г) 4B52
а) 10101100110011
б) 10100101000001
в) 1001001011111111000100000
г) 1000010101010110110000
Uses graphabc;
begin
setpenwidth(3);
setwindowsize(400,500);
ellipse(120,350,280,480);
circle(200,300,60);
circle(200,210,40);
setbrushcolor(clblack);
circle(190,200,5);
circle(210,200,5);
line(200,210,220,220);
line(200,220,220,220);
line(200,210,200,220);
floodfill(204,214,clblack);
setpenwidth(5);
line(190,235,215,235);
line(70,320,170,250);
line(230,250,330,300);
end.
Рассмотрим алфавит состоящий из следующих символов:0,1,2,3,4,5,6,7,8,9,A,B,C,D,E,F
Алфавит состоит из 16 симолов (0,1,2,3,4,5,6,7,8,9,A,B,C,D,E,F)
Мощность: 16
Я думаю и образная и текстовая
роботы умеют ходить
и умеют читать и писать
я так понял твой вопрос