Const n=3;{можно любое число}
var a:array [1..n] of Integer;x,q,i:Integer;b,c,z:Real;
begin
for i:=1 to n do
begin
Write('a[',i,']=');
ReadLn(a[i]);
end;
x:=a[1];
for i:=2 to n do
if x<a[i]
then x:=a[i];
c:=x;
Writeln(c:3:2,'-Naibolshoe');
q:=a[1];
for i:=2 to n do
if q>a[i]
then q:=a[i];
z:=q;
Writeln(z:3:2,'-Naimenshoe');
b:=(x+q)/2;
WriteLn(b:3:2,'-seredne arifmitichne') ;
readln;
end.
<span>Символы, находящиеся справа от курса, удаляют с помощью клавиши Delete</span>
Объем видеопамяти =
5*12*256*512 бит = 5*12*256*512 / 8 байт = 5*12*256*512 / (8*1024) Кбайт = 960 Кбайт
Вот полный список примитивов: circle, ellipse, line, polygon, polyline, rect. Соответственно, нужно выбрать так:
- arc
- ✓ circle
- helix
- ✓ polyline
- ✓ ellipse
- ✓ rect
- hyperbola