Program q; var a:array[1..7,1..7] of integer; min7,sum1,odd,i,k:integer; avg5:real; begin; randomize; for i:=1 to 7 do begin; for k:=1 to 7 do begin; a[i,k]:=random(-10,10); if a[i,k] mod 2 = 1 then odd+=1; end; end; min7:=a[1,7]; for i:=1 to 7 do if a[7,i]<min7 then min7:=a[i,7]; for i:=1 to 7 do sum1+=a[i,1]; for i:=1 to 7 do avg5+=a[5,i]; avg5/=7; for i:=1 to 7 do a[1,i]:=1; write('Минимальный элемент в 7 столбце ', min7, ', сумма элементов первой строки ', sum1, ', кол-во нечётных чисел ', odd); end.
ответ:Информационный размер статьи I=k*i, где k-количество символов в статье, i- количество бит на один символ.
1) k=32*40*64= 81920
I= 81920*8= 655360 бит
655360 бит/8= 81920 байт
81920 байт/1024= 80 Кбайт
ответ: 80 Кбайт
2)k=48*40*40= 76800
I=76800*8= 614400 бит
614400 бит/8= 76800 байт
76800 байт/1024= 75 Кбайт
ответ: 75 Кбайт
3)k=64*40*48= 122880
I=122880*8= 983040 бит
983040 бит/8= 122880 байт
122880 байт/1024= 120 Кбайт
ответ: 120 Кбайт
4)k=64*40*64= 163840
I=163840*8= 1310720 бит
1310720 бит/8=163840 байт
163840 байт/1024= 160 Кбайт
ответ: 160 Кбайт
Подробнее - на -
Объяснение:
var a:array[1..7,1..7] of integer; min7,sum1,odd,i,k:integer; avg5:real;
begin;
randomize;
for i:=1 to 7 do begin;
for k:=1 to 7 do begin;
a[i,k]:=random(-10,10);
if a[i,k] mod 2 = 1 then odd+=1;
end;
end;
min7:=a[1,7];
for i:=1 to 7 do if a[7,i]<min7 then min7:=a[i,7];
for i:=1 to 7 do sum1+=a[i,1];
for i:=1 to 7 do avg5+=a[5,i];
avg5/=7;
for i:=1 to 7 do a[1,i]:=1;
write('Минимальный элемент в 7 столбце ', min7, ', сумма элементов первой строки ', sum1, ', кол-во нечётных чисел ', odd);
end.