Const n=10;
<span>var i,j,k,mx,ind: integer;
</span><span> a: array[1..n] of integer;
</span><span>begin
</span><span> writeln('исходный массив:');
</span><span> randomize;
</span><span> mx:=0;
</span><span> for i:=1 to n do
</span><span> begin
</span><span> a[i]:=random(2*n)-n;
</span><span> write(a[i],' ');
</span><span> if a[i]>mx then
</span><span> begin
</span><span> mx:=a[i];
</span><span> ind:=i;
</span><span> end;
</span><span> end;
</span><span> writeln;
</span><span> for i:=ind+1 to n-1 do
</span><span> for j:=i+1 to n do
</span><span> if a[i]>a[j] then
begin
k:=a[i];
a[i]:=a[j];
a[j]:=k;
end;
</span><span> writeln('новый массив:');
</span><span> for i:=1 to n do write(a[i],' ');
</span><span>end.
</span>исходный массив:
<span>3 7 7 5 5 -2 -8 -9 -8 6
</span><span>новый массив:
</span><span>3 7 -9 -8 -8 -2 5 5 6 7
</span><span>
</span>
Ответ на рисунках. Красное это компьютеры-серверы. Синие это провода.
Задание 3.7
//Pascal
var i,n,k:integer;
begin
n:=24;
k:=1;
//количество амеб через
//цикл for
for i:=1 to n div 3 do begin
k:=k*2;
writeln('Время :',i*3,' Амеб :',k);
end;
writeln;
//количество амеб через
//цикл while
i:=0;
k:=1;
while i<n do begin
i:=i+3;
k:=k*2;
writeln('Время :',i,' Амеб :',k);
end;
writeln;
//количество амеб через
//цикл Repeat
i:=0;
k:=1;
repeat
i:=i+3;
k:=k*2;
writeln('Время :',i,' Амеб :',k);
until i=n
end.
Задание 3.8
var
k,b,t:integer;
begin
for b:=1 to 10 do
for k:=1 to 20 do
for t:=1 to 200 do
if (b*10+k*5+t*0.5=100)and(b+k+t=100)then writeln('Быков: ',b,' Коров:',k,' Телят:',t);
end.
начало
a=1,b=1
если a<1000,
тогда
a++; b = b + a; вернуться к условию,
иначе
вывод b
конец
#include "iostream"
#include "cstdlib"
#include "ctime"
using namespace std;
void z(int *m, int n, int a, int b){
srand(time(NULL)); for(int i=0;i< n;i++)m[i]=a+rand()%(b-a+1);}
int k(int *m, int n, int a, int b){
int s=0; for(int i=0;i< n;i++)s+=m[i]>=a&&m[i]<=b; return s;}
int main(){
int n,a,b,na,nb; cout<<"n: "; cin>>n; int *m=new int[n];
cout<<"a b: "; cin>>a>>b; z(m,n,a,b);
for(int i=0;i< n;i++)cout<<m[i]<<' '; cout<< endl;
cout<<"number_A number_B: "; cin>>na>>nb; cout<<"k="<< k(m,n,na,nb);
<span>delete []m; cout<<"\nPress Enter for exit\n"; cin.get(); cin.get();}</span>