uses
GraphABC;
var
a: array of point := (new point(600, 400), new point(100, 0), new point(70, 300));
begin
SetBrushColor(clYellow);
FillRect(0, 0, WindowWidth, WindowHeight);
SetBrushHatch(HatchStyle.Percent05);
SetBrushStyle(BrushStyleType.bsHatch);
SetPenColor(clGreen);
SetPenWidth(3);
SetBrushColor(clRed);
FillPolygon(a);
DrawPolygon(a);
end.
Const
n=10;var
a:array[1..n]of integer;
i,max1,max2,im1,im2:integer;
begin for i:=1 to n do
begin
a[i]:=random(21)-10;
write(a[i]:4);
end;
max1:=a[1];im1:=1;
for i:=1 to n do
if a[i]>max1 then
begin
max1:=a[i];
im1:=i;
end;
for i:=1 to n do
if (a[i]<=max1)and(i<>im1)and(a[i]>max2)then
begin
max2:=a[i];
im2:=i;
end;
writeln;
writeln('i: ',im1,' max1: ', max1,' i: ',im2,' max2: ',max2);
<span>end.</span>
Сделано с рандомными числами.
program massiv; var mas:array [1..10] of real; a:real; i:byte; begin a:=0; for i:=1 to 10 do begin mas[i]:=random(10)+1; if a<mas[i] then a:=mas[i]; end; writeln(a, ' - наибольшее из чисел массива ' ); end.
В математике принято считать число нормализованным, если его мантисса лежит в на интервале между 1 и 10. В информатике мантисса должна лежать в пределах между 0 и 1.
Таким образом, в математике 123,456 = 1,23456×10² и порядок равен 2.
В информатике 123,456 = 0,123456×10³ и порядок равен 3
Для того что бы разместить информацию на дискейте (1,44) объемом (2048) понадобиться;
2048/1,44=1422
