Ну например: (по выделению тепла) Костёр, плита, лампа накаливания. Или (по прочности) корпус косм. ракеты, корпус машины, стеклопакет окне, тарелка, соломка.
Var i: byte;
begin
randomize;
for i := 1 to 10 do
writeln(random(100)+50);
end.
Program prim3;
uses crt;
var i,n,r,max,min,imax,imin:integer;
a:array[1..10000] of integer;
begin
clrscr;
randomize;
write('число элементов n= ');
readln(n);
for i:=1 to n do
begin
a[i]:=random(45)-22;
{Получаем случайные числа и выводим их на экран.}
write(a[i],' ');
end;
{За начальный максимум (минимум) берем первый элемент массива.}
min:=a[1]; max:=a[1];
for i:=1 to n do
begin
{Если найдется элемент, меньший MIN, то MIN будет равен этому элементу. Одновременно запоминаем индекс промежуточного минимума.}
if a[i]<=min then
begin
min:=a[i]; imin:=i;
end;
{Если найдется элемент, больший МАХ, то МАХ будет равен этому элементу. Одновременно запоминаем индекс промежуточного максимума.}
if a[i]>= max then
begin
max:=a[i]; imax:=i;
end;
end;
{Печатаем минимальный элемент и его индекс.}
writeln(min,' номер' , imin);
{Печатаем максимальный элемент и его индекс.}
writeln(max, ' номер' ,imax);
readkey;
end.
Нарисуй книгу напеши наука и - история
В одном байте 8 бит, в одном килобайте 1024 байт, в одном мегабайте 1024 килобайт, то есть 1 мегабайт это 8*1024*1024 бит
