988-принятие христианства на Руси
1147-первое упонминанеи о летописи в Москве
1492-открытие Колумбом Америки
1895-открытие радиосвязи
1941-начало ВОВ
1946-создание первого компьютера
1951-создание первого отечественного компьютера
1957-запуск первогоискусственного спутника земли
1961-первый полёт человека в космос
var a: array[1..10] of integer;
i,imin,min: integer;
begin
randomize;
write('массив: ');
for i:=1 to 10 do begin
a[i]:=random(201)-100;
write(a[i],' ');
end;
writeln;
min:=a[1];
imin:=1;
for i:=2 to 10 do
if(a[i]<min) then begin
min:=a[i];
imin:=i;
end;
write('наименьший элемент: a[',imin,']=',min);
end.
<span>
4 294 967 296 байтов в 4 гигобайте.</span>
Информация – это обозначение содержания, полученного от внешнего мира в процессе приспособления к нему (Н. Винер).
Информация - снятая неразличимость, передача разнообразия (У.Р. Эшби).
Информация – снятая неопределенность (К. Шеннон).
Информация – отраженное разнообразие (А. Д. Урсул).
Информация – мера сложности структур, мера упорядоченности материальных систем (А. Моль).
Информация – мера неоднородности распределения материи и энергии в пространстве и времени (В. М. Глушков).
var
a : integer;
begin
write('введите a=');
readln(a);
writeln('a*8=a*2*2*2=', a*2*2*2);
writeln('a*10=a*5*2*1*1=', a*5*2*1*1);
end.