Uses crt;
const n=4;
m=4;
var a: array [1..n,1..m] of integer;
b: array [1..100] of integer;
x,y,z,max,min,k: integer;
begin
z:=1;
for x:=1 to n do begin
for y:=1 to m do
begin
a[x,y]:=random(20);
write(a[x,y]:3);
end;
writeln;
end;
for y:=1 to m do begin
max:=a[1,y];
for x:=1 to n do
if a[x,y]>max then max:=a[x,y];
b[z]:=max;
inc(z);
<span> end;
</span> min:=b[1];
k:=z-1;
for z:=1 to n do
if b[z]<min then min:=b[z];
writeln;
writeln(min);
<span>end.
---
Блок-схема во вложении</span>
Ответ:
5
Объяснение:
a = 12;
b = 8 + a / 2; (b=8+12/2=14)
a = a – b / 2 (а=12-14/2=5)
<span>Если 33 буквы то на кодирование 1 буквы идет 6 бит, а букв 33,то 33*6=198 бит</span>
Общий объем равен 56 кбайт =159744 байт
информац объем страницы 8 бит * 80 * 64 = 40960 бит = 5120 байт = 31.2 ≈ 32 страницы
Ответ 32 страницы
1)
var a:Integer;
begin
Readln(a);
if a div 10=3 then
writeln('True');
readln;
<span>end.
2)
var a,b:Integer;
begin
Readln(a,b);
if ((a<100) and (b>100)) or ((a>100) and (b<100)) then
Writeln('True');
readln;
<span>end.</span></span>