<span>Клод Шеннон, был такой Американский инженер и математик, его работы являются синтезом математических идей с конкретным анализом чрезвычайно сложных проблем их технической реализации
Он является основателем теории информации, нашедшей применение в современных высокотехнологических системах связи. Шеннон внес огромный вклад в теорию вероятностных схем, теорию автоматов и теорию систем управления — области наук, входящие в понятие «кибернетика». В 1948 году предложил использовать слово «бит» для обозначения наименьшей единицы информации (в статье «Математическая теория связи»).</span><span />
Управление устройствами компьютера (ресурсами), т.е. согласованная работа всех аппаратных средств ПК: стандартизованный доступ к периферийным устройствам, управление оперативной памятью и др.
Обеспечение пользовательского интерфейса.
Исполнение запросов программ (ввод и вывод данных, запуск и остановка других программ, выделение и освобождение дополнительной памяти и др.).
1) const n=8 - константа, n нельзя будет присвоить другие значения
2) <span>Type is = array [1..n] of integer; это тип с названием "is" он равен массиву</span>
<span>3) var a:is; a-имеет тип is => это массив</span>
<span>4) begin - начало программы</span>
<span>5)end. - конец программы</span>
Const
m=8;
n=6;
var
a:array[1..m,1..n] of integer;
st,t:string;
i,j,k,s:integer;
begin
Write('k='); Read(k);
Randomize;
Writeln('Исходная матрица A[',m,',',n,']');
st:='';
for i:=1 to m do begin
s:=0;
for j:=1 to n do begin
a[i,j]:=Random(15)-5; // [-5;9]
Write(a[i,j]:3);
s:=s+a[i,j]
end;
Writeln;
if s>k then begin
Str(i,t);
if st='' then st:=t
else st:=st+','+t
end
end;
if st<>'' then Writeln('Искомые строки: ',st)
end.
Пример
k=15
Исходная матрица A[8,6]
3 -5 6 8 0 2
1 1 5 2 0 1
0 -1 1 9 5 8
-1 -2 -3 3 -2 -2
8 7 5 6 5 3
8 -1 7 -3 7 3
3 -5 6 -1 0 4
7 1 9 1 4 6
Искомые строки: 3,5,6,8
1)409600 бит=50 Кбайт
2)7680 байт
3)12 Кбайт
4)86016 байт