Const n=5; m=6;
var x:array[1..n,1..m] of integer;
k:array[1..m] of integer;
i,j,k0:integer;
begin
Randomize;
For i:=1 to n do begin
for j:=1 to m do begin
x[i,j]:=Random(20)-10;
write(x[i,j]:4);
end;
writeln;
end;
for j:=1 to m do begin
k0:=0;
for i:=1 to n do if x[i,j]<0 then k0:=k0+1;
k[j]:=k0;
end;
writeln('Количество отрицательных элементов в столбцах:');
for j:=1 to m do write(k[j]:4);
writeln;
<span>end.</span>
1.
const
stroki = 10000;
stolbci = 10000;
type
matrix = array[1..stroki, 1..stolbci]of integer;
procedure vvod(var a: matrix; m, n: integer);
var
i, i1: integer;
begin
for i := 1 to m do
begin
write(' ');
for i1 := 1 to n do
read(a[i, i1]);
end;
end;
var
a: matrix;
m, n, i, j, kol: integer;
begin
kol := 0;
readln(n, m);
vvod(a, n, m);
for i := 1 to n do
for j := 1 to m do if a[i, j] = 7 then kol += 1;
writeln(kol);
end.
2.
var
a, b, c: array[0..14] of integer;
i, max, min, sum: integer;
begin
sum := 0;
min := 100;
max := 0;
for i := 0 to 14 do
begin
randomize;
a[i] := 10 + random(1 + 30 - 10);
b[i] := 10 + random(1 + 30 - 10);
c[i] := a[i] + b[i];
if c[i] > max then max := c[i]
else if c[i] < min then min := c[i];
sum += c[i];
end;
writeln(max);
writeln(min);
writeln(round(sum / 15));
end.
1) В ASCII каждый символ кодируется одним байтом, поэтому количество байт равно количеству символов. Тогда строка займет 45 байт, страница = 25х45 байт, весь текст - 300х25х45 байт. Выражаем эту величину в килобайтах: 300х25х45/1024 = 329.6 КБайт. Если использовать двухбайтную кодировку UNICODE, объем файла удвоится и составит 659.2 Кбайта.
2) Фотография содержит 3072х2048 пикселей, каждый пиксель кодируется 6 байтами, 1 Кбайт равен 1024 байтам, тогда графический файл будет иметь размер 3072х2048х6/1024=36864 (Кбайт)
3) Скорость передачи данных по сети составляет 48/(2.5х60)=0.32 МБайт/с.
Время передачи упакованного файла равно 80-30=50 (с).
За это время по сети будет передан файл размером 50х0.32=16 (Мбайт)
2 мб равно 2048 кб
2048 разделить на 64 будет 32