СМОТРИ ВЛОЖЕНИЕ
...........................
1)
Program n1;
var a: array[1..10] of integer;
i,sum: integer;
begin
randomize;
sum:=0;
writeln('исходный массив:');
for i:=1 to 10 do
begin
a[i]:=random(20)-10;
write(a[i],' ');
if a[i]<0 then sum:=sum+a[i];
end;
writeln;
writeln('сумма: ',sum);
end.
2)
Program n2;
var a: array[1..10] of integer;
i,k: integer;
begin
randomize;
k:=0;
writeln('исходный массив:');
for i:=1 to 10 do
begin
a[i]:=random(20)-10;
write(a[i],' ');
end;
writeln;
write('номера дел на 5: ');
for i:=1 to 10 do if a[i] mod 5=0 then write(i,' ');
end.
Оптические, компакт-диски
1) По формуле Шеннона 2^i=n найдём i=5 т.е. сообщение о каждом ученике кодируется пятью битами.
Ответ: 5
2) По той же формуле. i=4, значит 2^4=16.
Ответ: 16
3) n=80 - о десяти файлах. Значит, информация об одном - 8бит. 2^8=256 файлов
Ответ: 256
4)2^i=128
i=7
140/7=20
Ответ: 20
5) Всего 4*16=64 возможных исходов. 2^i=64 i=6
Ответ:6
Вот наполнение массива рандомом. Если нужно наполнение с клавиатуры, то вместо a[i,j]:=random(100)-50; необходимо поставить read(a[i,j]);
const n=3; m=4;
var a:array[1..n,1..m] of integer;
var i, j, count:integer;
begin
count:=0;
for i:=1 to n do begin
for j:=1 to m do begin
a[i,j]:=random(100)-50;
write(a[i,j]:3, ' ');
end;
writeln;
end;
for i:=1 to n do
for j:=1 to m do begin
if (a[i,j]<0) and (a[i,j] mod 2 <>0) then count:=count+1;
end;
writeln('Количество отрицательных нечетных элементов: ', count);
<span>end.
</span>