По русски, моделирование это изучение явления или предмета по их модели. 1) Атом. На самом деле его модель является лишь примерной, никто не видел, действительно ли он состоит так, как нам говорят, но принято, что мы его знаем. Поэтому его изучение проходит на модели. 2) Самолет. Никто обычному человеку не даст самолет, на изучение, лишь за деньги возможно купля самолета и его изучения, поэтому ваш единственный его изучения - это моделирование. 3) Взрыв. Аналогично самолету, будете ли вы совершать взрывы для его изучения. Вы можете использовать только то, что вам дано или же сведения, полученные при случайном взрыве. Всякие "Разрушители легенд" исключение. 4) Так же мы не видели что внутри Земли, мы лишь можем предполагать. Ибо радиус Земли 6371км, а люди пробились лишь на 7 600 м, что пренебрежено мало.
P.S. Земля (с большой буквы)- планета, земля (с маленькой) - почва. P.S.S. Надеюсь на благодарность и лучший ответ.
// PascalABC.NET 3.0, сборка 1139 от 10.01.2016 begin var n:=ReadInteger('Количество элементов в массиве: '); var a:=ArrRandom(n,-50,50); a.Println(','); Writeln('Четные элементы: '); var i:=1; while i<n do begin Write(a[i],' '); Inc(i,2) end; Writeln; Writeln('Нечетные элементы: '); i:=0; while i<n-1 do begin Write(a[i],' '); Inc(i,2) end; Writeln end.
Тестовое решение: Количество элементов в массиве: 10 15,-18,-29,-25,46,21,-8,-17,-9,15 Четные элементы: -18 -25 21 -17 15 Нечетные элементы: 15 -29 46 -8 -9
// PascalABC.NET 3.0, сборка 1128 const nmax=100; var n,i,j,nn,nz,np,t:integer; a,an,az,ap:array[1..nmax] of integer; begin // формируем массив и выводим его Write('Количество элементов в массиве: '); Read(n); for i:=1 to n do begin a[i]:=Random(11)-5; Write(a[i],' ') end; Writeln; // разбиваем массив на три подмассива nn:=0; nz:=0; np:=0; for i:=1 to n do if a[i]<0 then begin nn:=nn+1; an[nn]:=a[i] end else if a[i]=0 then begin nz:=nz+1; az[nz]:=a[i] end else begin np:=np+1; ap[np]:=a[i] end; // сортируем массив с отрицательными элементами по убыванию for i:=1 to nn-1 do for j:=1 to nn-1 do if an[j]<an[j+1] then begin t:=an[j]; an[j]:=an[j+1]; an[j+1]:=t end; // сортируем массив с положительными элементами по возрастанию for i:=1 to np-1 do for j:=1 to np-1 do if ap[j]>ap[j+1] then begin t:=ap[j]; ap[j]:=ap[j+1]; ap[j+1]:=t end; // формируем новое содержимое массива a i:=0; for j:=1 to nz do begin i:=i+1; a[i]:=az[j] end; for j:=1 to np do begin i:=i+1; a[i]:=ap[j] end; for j:=1 to nn do begin i:=i+1; a[i]:=an[j] end; // вывод результата for i:=1 to n do Write(a[i],' '); Writeln end.
1) Атом. На самом деле его модель является лишь примерной, никто не видел, действительно ли он состоит так, как нам говорят, но принято, что мы его знаем. Поэтому его изучение проходит на модели.
2) Самолет. Никто обычному человеку не даст самолет, на изучение, лишь за деньги возможно купля самолета и его изучения, поэтому ваш единственный его изучения - это моделирование.
3) Взрыв. Аналогично самолету, будете ли вы совершать взрывы для его изучения. Вы можете использовать только то, что вам дано или же сведения, полученные при случайном взрыве. Всякие "Разрушители легенд" исключение.
4) Так же мы не видели что внутри Земли, мы лишь можем предполагать. Ибо радиус Земли 6371км, а люди пробились лишь на 7 600 м, что пренебрежено мало.
P.S. Земля (с большой буквы)- планета, земля (с маленькой) - почва.
P.S.S. Надеюсь на благодарность и лучший ответ.