<span>1)Program massiv;
</span>
<span>Var mas:array[</span>1..20<span>] of </span>integer;
a,b,i,sum:integer;
<span><span>Begin
</span></span>
sum:=0;
<span>For i:=</span>1 To 20 Do
<span>
begin
</span>
mas[i]:= random(100); {Заполняем массив случайными числами в промежетке от 0 до 99 (можешь изменить промежуток}
write(mas[i],' ');
<span>
end;
</span>
Writeln('Введите a,b');
<span>
Readln(a,b);
</span>
<span>For i:=</span>1 To 20 Do
<span>
begin
</span><span>if (mas[i]>a) and (mas[i]<b) Then
sum:=sum+mas[i];
end;
Writeln(sum);
end. 2) <span>Program massiv;
</span><span>Var mas:array[</span>1..20<span>] of </span>integer;
i,min,max,pr:integer;<span><span>Begin
</span></span><span>For i:=</span>1 To 20 Do<span><span>
begin
</span></span>mas[i]:= random(15);
write(mas[i],' ');<span>
end;
Writeln;
</span>min:=30000;
max:=0;
<span>For i:=</span>1 To 15 Do<span><span>
begin
</span></span><span>if mas[i]>max Then max:=mas[i];
if mas[i]<min Then min:=mas[i];
end;
pr:=min*max;
Writeln(pr);
end. </span> 3)<span>Program massiv;</span>Var mas:array[1..20] of integer; a,b,i,k:integer;<span><span>Begin</span></span>For i:=1 To 20 Do<span><span>begin </span></span>mas[i]:= random(100); {Заполняем массив случайными числами в промежетке от 0 до 99 (можешь изменить промежуток}write(mas[i],' ');<span>end;</span>Writeln('Введите a,b,k');<span>Readln(a,b,k);</span>i:=1;While i<>20 Do<span><span>begin</span></span>if (mas[i]>a) and (mas[i]<b) and(mas[i] mod k=0) ThenWrite(mas[i],' ');i:=i+1;<span>end; end. </span>4)<span>Var mas:array[</span>1..20<span>] of </span>integer;
i,min,max,pr:integer;<span><span>Begin
</span>randomize;
</span><span>For i:=</span>1 To 20 Do<span><span>
begin
</span></span>mas[i]:= random(100)+1;
write(mas[i],' ');<span>
end;
Writeln;
</span>pr:=1;
<span>For i:=</span>1 To 15 Do<span><span>
begin
</span></span>pr:=pr*mas[i];<span>
end;
Writeln(pr);
end. </span>
</span>
1 точка занимает 5 бит
(1600*1200)*5=1200000байт
Ответ:
1024 байта = 1 Кбайт
2048 бит = 0,25 Кбайт
Объяснение:
2048 бит = 2048 / 8 / 1024 = 0,25 Кбайт
<span>program ves;
const
A1='легкая категория';
A2='средняя категория';
var
b : integer;
begin
write('введите вес спортсмена *пусто* = ');
readln(b);
if b < 59 then writeln(A1) else writeln(A2);
readln;
end.</span>
var a,b,x: real;
begin
writeln('Введите коэффициенты линейного уравнения ax=b');
readln(a,b);
if (a=0) and (b=0) then writeln('Решений бесконечно много')
else
if (a=0) and (b<>0) then writeln('Решений нет')
else
if a<>0 then
begin
x:=b/a;
writeln('Корень уравнения: ',x)
end
end.