Var a:array of integer;
n,i:integer;
begin
readln(n);
setlength(a,n);
for i:=0 to n-1 do readln(a[i]);
for i:=0 to n-1 do if a[i] mod 2=1 then write(a[i],' ');
writeln();
for i:=0 to n-1 do if a[i] mod 2=0 then write(a[i],' ');
end.
Из всех органов чувств у дельфинов лучше всего развиты органы слуха . В жизни дельфинов и других китообразных слух приобрел первостепенное значение и часто заменяет зрение . Поясним это простым рассуждением . Известно , что некоторые дельфины кормятся не только днем , но и ночью , ныряют на большую глубину , где почти или совсем темно . Китайского речного дельфина и гангского дельфина окружает мутная вода , у них совсем слабое зрение . Но при ловле добычи плохое зрение похоже , им не очень мешает . Оказывается , плохое зрение им фактически заменяет слух , который воспринимает различные звуки моря ( или реки озера ) , в том числе сигналы сородичей и эхо собственных сигналов.
Program Program1;
Var
a:array [1..10] of integer;
i,temp:integer;
begin
randomize;
writeln('Исходный массив:');
for i:=1 to 10 do
begin
a[i]:=random(10)+1;
writeln('a[',i,']=',a[i]);
end;
temp:=a[1];
a[1]:=a[10];
a[10]:=temp;
writeln;
writeln('Полученный массив:');
for i:=1 to 10 do
writeln('a[',i,']=',a[i]);
end.
Program Control;Uses crt;
Var x:integer;y,z:real;
Begin;
x:=5;
y:=7.5;
z:=x+y;
Writeln('summa=',z);
Readln;
End.
Хмм... Ну...
0 = треуг треуг треуг
1 = треуг треуг квадрат
2 = треуг квадрат треуг
3 = треуг квадрат квадрат
4 = квадрат треуг треуг
5 = квадрат треуг квадрат
6 = квадрат квадрат квадрат
7 = треуг треуг круг
8 = треуг круг треуг
9 = треуг круг круг
10 = круг треуг треуг
11 = круг треуг круг
12 = круг круг круг
13 = квадрат квадрат круг
14 = квадрат круг круг
15 = круг квадрат круг
Фух....