Program main;
Var A, B: array [1..100] of integer;
k, n, i: byte;
Begin
i:=1;
Readln (n);
For k:=1 to n do
Readln(A[k]);
For k:=1 to n do
If A[k]<0 then
Begin
B[i]:=A[k];
i:=i+1;
End;
For k:=1 to n do
If A[k]=0 then
Begin
B[i]:=A[k];
i:=i+1;
End;
For k:=1 to n do
If A[k]>0 then
Begin
B[i]:=A[k];
i:=i+1;
End;
For i:=1 to n do
Writeln (B[i]);
Readln;
End.
Если надо решение, то напишу. А ответ: 162.198.0.128
можно среда, элементраные действия, система команд, отказы ну и так далее
1)800*640=512000-пикселей
2)24=2в степени 5
5-бит 1 пиксель
3)512000*5=2560000-бит
3)2560000\8\1024=312.5Кб(вроде)
Село - мала батьківщина багатьох із нас. А ще, батьківщина квітів. Чи не в селі народилися чорнобривці, мальви, ружа,волошки, бузок тая кручені паничі? Квіти - чарівна прикраса сільських господ, вони живі і мають свою мову. Це ж вони оспівані в народних піснях, передають людям почуття ніжності і любові. Ідеш було стежиною, а тобі видзенькують польові дзвіночки: "дзень-дзелень", шепочуться між собою сині сокирки, повертаєш до криниці а там, бузок залицяється з калиною: "Ой, яка ж ти ніжна та хороша...". А під самим тином бабусиної хати пнуться вгору рожеві мальви: "ми найвищі, найстрункіші", поряд -чорнобривці і собі: "ми не гірші, хоч малі, зате маєм чорні брови" А коли настане вечір, зійдуться всі квіти і гомонять собі про своє красиве село і навіть не здогадуються ,чому воно їм таке миле та хороше.